map {
m/\A(-?)(\d)(\d)/;
$1 . '\\' # escape dot
- . chr($2 > 3 ? 0x2070 + $2 : $2 == 1 ? 0xB9 : 0xB0 + $2) # superscript
- . chr(0x2080 + $3) # subscript digit
+ . ('.̇' x ($2 < $3 ? $2 : $3)) # min($2,$3) without losing captures
+ . ('.' x ($3 - $2))
+ . (' ̇' x ($2 - $3))
} @_
}