+ map { $U ? tr/1-3-/❘❙❚ /r : sprintf
+ '<svg width="20" height="14" viewBox="-.5 0 10 7"><path d="M0,0 %s"/></svg>',
+ join ' ',
+ map {
+ $_ eq '' ? 'm2,-7' :
+ $_ eq '-' ? 'm4,-7' :
+ join 'm1,-7', ('v7') x $_
+ }
+ split /(-)?/, $_ # each bar [123] and space [ -]
+ }