main = interact$map f
f '\n' = '\n'
f _ = '0'