module My.Time where

import           System.Posix.Time

-- |print start-end time
timestamp x = do
  startTime<-epochTime
  print x
  endTime<-epochTime
  putStrLn $ "time: " ++ show(endTime-startTime) ++ " sec."
