main=putStr$[-9..9]>>=(\i->[1..9-abs i])>>=show