fork(1) download
  1. main = readLn >>= \k -> print (div (k*(k+1)) 2)
Success #stdin #stdout 0s 6300KB
stdin
10
stdout
55