use utf8;
use strict;
use warnings;
use Shiar_Sheet::KeyboardChars 'kbchars';

my %rows = (
	1 => '▮',
	2 => '■',
	3 => '□',
	4 => '⁙',
	5 => '⁘',
	6 => '‖',
	7 => '◀',
	8 => '▶',
	0 => '○', #
	a => '█',
	b => '▒',
	c => '🐱',
	d => '⬇️',
	e => '░',
	f => '✽',
	g => '●',
	h => '♥',
	i => '☉',
	j => '웃',
	k => '⌂',
	l => '⬅️',
	m => '😐',
	n => '♪',
	o => '🅾️',
	p => '◆',
	q => '…',
	r => '➡️',
	s => '★',
	t => '⧗',
	u => '⬆️',
	v => 'ˇ',
	w => '∧',
	x => '❎',
	y => '▤',
	z => '▥',
);

my $groups = kbchars(\%rows);

+{
	%{ $groups },
	version => '1.0',
	title => 'P8SCII',
	moderows => '1',
	intro => 'PICO-8 character set',
}
