приключения греки, описанные на лучшем в мире языке

greka.hs

через :: a -> a
через a = a

греку :: a -> a
греку a = a

в :: a -> a
в a = a

реке :: a -> a
реке a = a

рак :: a -> a
рак a = a

реку :: a -> a
реку a = a

руку :: a -> a
руку a = a

грека :: a -> a
грека a = a

за :: a -> a
за a = a

цап :: a -> a
цап a = a

ехал _ _ _ = putStr ""
видит _ _ _ _ = putStr ""
сунул _ _ _ _ = putStr ""
рaк _ _ _ _ = putStr ""

main :: IO ()
main = do
  ехал грека через реку
  видит грека в реке рак
  сунул в реку руку грека
  рaк за руку греку цап