module Get8192 where main putStrLn show foldl take 13 repeat GET

1
2
3
module Get8192 where
main = putStrLn $ (show $ foldl (*) 1 $ take 13 $ repeat 2) ++ " GET!"