define doit use $v1
   "doit called with " print $v1 print "\n" print

define callit use $v2
   "callit called with " print $v2 print "\n" print
   $v2 call

23.54 "doit" callit