RosettaCodeData/Task/Time-a-function/Logo/time-a-function.logo

to time
  output first first shell "|date +%s|
end
to elapsed :block
  localmake "start time
  run :block
  (print time - :start [seconds elapsed])
end

elapsed [wait 300]   ; 5 seconds elapsed