appendCurrentTime :: String -> IO String
appendCurrentTime w = do {x <- getCurrentTime;  return (w ++ show x ++ "\n")}

appendIO :: IO String -> IO String -> IO String
appendIO a b = do {string1 <- a;
                   string2 <- b;
                   return (string1 ++ string2)}