link strings

procedure main()
    givens := set("ABCD", "CABD", "ACDB", "DACB", "BCDA", "ACBD",
                  "ADCB", "CDAB", "DABC", "BCAD", "CADB", "CDBA",
                  "CBAD", "ABDC", "ADBC", "BDCA", "DCBA", "BACD",
                  "BADC", "BDAC", "CBDA", "DBCA", "DCAB")

    every p := permutes("ABCD") do
        if not member(givens, p) then write(p)

end