attempt :: B.ByteString -> Match
attempt bs =
  let
    chars =
      Bytes.all_chars

    results =
      [ decrypt bs c | c <- chars ]

  in
    results
    |> bestMatch
attempt :: B.ByteString -> Match
attempt bs =
  let
    chars =
      Bytes.all_chars

    results =
      [ decrypt bs c | c <- chars ]

  in
    results
    |> bestMatch
attempt bs =
  let
    chars =
      Bytes.all_chars

    results =
      [ decrypt bs c | c <- chars ]

  in
    results
    |> bestMatch