decrypt :: B.ByteString -> Word8 -> Match
decrypt bs c =
  let
    decipherd =
      cycleKeyChar bs c
      |> Bytes.byteStringToString

    score =
      Simple.simpleFrequencyWeighted decipherd

    chi =
      Chi.chi decipherd
  in
    Match c decipherd score chi
decrypt :: B.ByteString -> Word8 -> Match
decrypt bs c =
  let
    decipherd =
      cycleKeyChar bs c
      |> Bytes.byteStringToString

    score =
      Simple.simpleFrequencyWeighted decipherd

    chi =
      Chi.chi decipherd
  in
    Match c decipherd score chi
decrypt bs c =
  let
    decipherd =
      cycleKeyChar bs c
      |> Bytes.byteStringToString

    score =
      Simple.simpleFrequencyWeighted decipherd

    chi =
      Chi.chi decipherd
  in
    Match c decipherd score chi