my $c = charblock(1578);
print "$c\n";