#!/usr/bin/runghc

main :: IO ()
main = do
  let message = "Three can keep a secret, if two of them are dead."
  putStrLn (reverse message)