-- very useless
apply x = \y -> y x

main = (apply "h") putStrLn