##tickloc:runsub whattodo;
##whattodo:runsub actit/4;
##actit:
var $actn to (looks sideways at you,smiles at you,walks around in a little circle,sniffs the air,looks up into the black night sky,plucks the froglets);
say 'acts',"[$actor] $actn";