main=interact$unwords.f.words;f x=[y|(y,"0")<-zip("":x)x,y>"0"]