fork download
  1. foo :: Show a => Int -> a -> IO ()
  2. foo 0 x = print x
  3. foo n x = foo (n - 1) [x]
  4.  
  5. main = foo 100 5
  6.  
Success #stdin #stdout 0s 6224KB
stdin
Standard input is empty
stdout
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[5]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]