#!perl -lp
/\//;$_.=$".($&|a^R)x($`*($==$'/$`+.999)-$'.x.$'*$=)=~x." 1/$="while$`