-print table(@$_) for (
- [ 3 => [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ }]],
- [ 3 => [qw{. ░ . ▒ . ▓ }]],
- [ 2 => [qw{. ▛ ▚ ▟ . ▙ ▞ ▜ }]],
- [ 2 => [qw{. ▁ ▂ ▃ ▄ ▅ ▆ ▇ ▔ . ▏ ▎ ▍ ▌ ▋ ▊ ▉ ▕ }]],
- [ 3 => [qw{. □ ▣ ■ . ▤ ▦ ▥ . ▧ ▩ ▨}]],
+print glyph_table(@$_) for (
+ [ [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ }]],
+ [ [qw{. ░ . ▒ . ▓ }]],
+ [ [qw{. ▛ ▚ ▟ . ▙ ▞ ▜ }]],
+ [ [qw{. ▁ ▂ ▃ ▄ ▅ ▆ ▇ ▔ . ▏ ▎ ▍ ▌ ▋ ▊ ▉ ▕ }]],
+ [ [qw{. □ ▣ ■ . ▤ ▦ ▥ . ▧ ▩ ▨}]],