Unit tests for Literate Haskell
[ohcount] / test / expected_dir / lithask2.lhs / haskell / code
1 main :: IO ()
2 main =  print [ (n, product [1..n]) | n <- [1..20]]