import Control.Monad

test = [0 .. 255]>>= \x->guard (x == 0 || mod x 10 /= 0) >>= \_->return x

main = print $ test