isAsciiAlphaNum :: Word8 -> Bool
isAsciiAlphaNum byte =
    (byte >= 65 && byte <= 90) || -- A-Z
    (byte >= 97 && byte <= 122) || -- a-z
    (byte >= 48 && byte <= 57)
isAsciiAlphaNum :: Word8 -> Bool
isAsciiAlphaNum byte =
    (byte >= 65 && byte <= 90) || -- A-Z
    (byte >= 97 && byte <= 122) || -- a-z
    (byte >= 48 && byte <= 57)
isAsciiAlphaNum byte =
    (byte >= 65 && byte <= 90) || -- A-Z
    (byte >= 97 && byte <= 122) || -- a-z
    (byte >= 48 && byte <= 57)