myPutStrLn x = do
  putStr x
  putStr "\n"