main = do
       t <- currentTime
       putStrLn (calendarTimeToString t)
main = do
       t <- currentTime
       putStrLn (calendarTimeToString t)
main = do
       t <- currentTime
       putStrLn (calendarTimeToString t)