import Prelude

main :: Fay ()
main =
      case [1,2] of
        []    -> putStrLn "got []"
        [a]   -> putStrLn "got one value."
        [a,b] -> putStrLn "got two values."