File standardInput readLines map(a,for(i,a size-1,0,-1,a atPut(i,if(b:=a at(i)>48,48,49));b or break);a println)