seconds_to_time :: RealFrac a => a -> Time
seconds_to_time f = round (f * 1000*1000)
seconds_to_time :: RealFrac a => a -> Time
seconds_to_time f = round (f * 1000*1000)
seconds_to_time f = round (f * 1000*1000)