alphabet :: Vector Char
alphabet = V.fromList $ ['0' .. '9'] <> filter unambiguous ['A' .. 'Z']
  where unambiguous = (`notElem` ("ILOU" :: String))

alphabet :: Vector Char
alphabet = V.fromList $ ['0' .. '9'] <> filter unambiguous ['A' .. 'Z']
  where unambiguous = (`notElem` ("ILOU" :: String))

alphabet = V.fromList $ ['0' .. '9'] <> filter unambiguous ['A' .. 'Z']
  where unambiguous = (`notElem` ("ILOU" :: String))
