g x=[t|t<-[0..32],all(\i->x!!(t+i)>'0')[0,5,12,17]]!!0
f x|i<-g x=([1..i]>>"0")++'1':([i..48]>>"0")
main=interact$f