fork download
  1. main = f [1,2] 1 2
  2.  
  3. f (h:[]) k = (\x-> print h)
  4. f (h:t) k = (\x -> print h >> f (t) k x)
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
1
2