#!/usr/local/bin/ghc main :: IO ()