writeln "character   Unicode    UTF-8 encoding (hex)"

for .cp in "AöЖ€𝄞" {
    val .utf8 = s2b cp2s .cp
    val .cpstr = b2s .utf8
    val .utf8rep = join " ", map fn(.b) $"\.b:X02;", .utf8
    writeln $"\.cpstr:-11; U+\.cp:X04:-8; \.utf8rep;"
}