open System

let sort (word: string): string =
    word |> Seq.sort |> String.Concat

let checkForAnagrams (row: string array) =
    Array.length row = Array.length (Array.distinct row)

let checkRow row =
    row |> Array.map sort
        |> checkForAnagrams

let checkAllRows rows: int =
    rows |> Array.map checkRow
         |> Array.filter id
         |> Array.length

let fromString (str: string) =
    str.Split '\n'
        |> Array.map (fun s -> s.Split ())

let generate =
    fromString >> checkAllRows

[<EntryPoint>]
let main _ =
    let input = "..."

    printfn "%i" (generate input)
    0