fay-0.1.0.0: docs/snippets/patterns.hs

race (winner,runners) = print (winner,runners)

first (x:xs) = x

getSquare (Math _ square _) = square