# Codepoint zu Bytewertigkeiten
# berechnen für UTF-8
sub cpoint2bints{
    my $self = shift;
    my $cp = shift;
    
    my $utf8 = pack "U", $cp;
    use bytes;
    unpack "C*", $utf8;
}