($x+=/i/-/d/*!!$x)*=!/s/||$x^16&&$x,print"$x
"x/o/for<>