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