$"x=3;print"@{[map$_>$&x$z=~//g?'^':V,/\d/g]} "x@-,$z=s/\B/$`%10le$'?' < ':' > '/egrfor<>