#!perl -paF
@_&&print$_<shift@_?V:"^",$#_?$"x3:$/for/./g;s!\B.!$`%10>$&?" > $&":" < $&"!ge;@_=@F