log :: String -> API ()
log line = do
    time <- io getCurrentTime
    tell [show time ++ ": " ++ line ++ "\n"]
log :: String -> API ()
log line = do
    time <- io getCurrentTime
    tell [show time ++ ": " ++ line ++ "\n"]
log line = do
    time <- io getCurrentTime
    tell [show time ++ ": " ++ line ++ "\n"]