main=mapM(print.abs.read)$take 1001$mapM(\c->['0'..c])"6543210"