fact :: Integer -> Integerfact n = product [1 .. n] main :: IO ()main = putStrLn $ show (fact 9)
Standard input is empty
362880
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!