RosettaCodeData/Task/Time-a-function/BaCon/time-a-function.bacon

' Time a function
SUB timed()
    SLEEP 7000
END SUB

st = TIMER
timed()
et = TIMER
PRINT st, ", ", et