# basics
sub a {@_[1]}
sub top { $_[0]->{top} = 1; @_ }
sub down { $_[0]->{down} =1; @_ }
sub off {@_}
sub those {@_}
# do some real thing
sub stay { ... }
sub watch { ... }
# then say...
stay off the shift;
watch $tv;
do any @job;
save those @whales;
