# Pastebin wR1ELEA0
loop :: IO ()
loop = do
  line <- getLine
  case line of
    "fnord" -> loop
    _ -> do
      putStrLn $ "You said: " ++ show line
      loop