fork(1) download
  1. f :: [Int] -> [Int]
  2. f x = 0:(map (+1) x)
  3.  
  4. g :: [Int] -> [Int]
  5. g x = map (*2) x
  6.  
  7. a = f b
  8. b = g a
  9.  
  10. main = print $ take 5 a
  11.  
Success #stdin #stdout 0s 6260KB
stdin
Standard input is empty
stdout
[0,1,3,7,15]