{- Frege block comment -}
{- outer {- inner -} outer -}
module Factorial where

factorial :: Int -> Int
factorial 0 = 1
factorial n = n * factorial (n - 1)

main :: IO ()
main = println (factorial 5)
