"program=%0Aimport+Data.List+%28+sortBy+%29%0A%0A---------------------------------------------------------------------%0A--+Definitions+from+TrieInsert%3A%0A%0Adata+Tree+a+%3D+Tree+a+%5BTree+a%5D%0A%0Atype+Trie+%3D+%5BTree+Char%5D%0A%0Ainsert+%3A%3A+String+-%3E+Trie+-%3E+Trie%0Ainsert+%5B%5D+t+%3D+%28Tree+%27.%27+%5B%5D+%3A+t%29%0Ainsert+%28w%3Aws%29+%5B%5D+%3D+%5BTree+w+%28insert+ws+%5B%5D%29%5D%0Ainsert+%28w%3Aws%29+%28Tree+c+cs+%3A+ts%29%0A++%7C+ord+w+%3C+ord+c+%3D+insert+%28w%3Aws%29+%5B%5D+%2B%2B+%28Tree+c+cs+%3A+ts%29%0A++%7C+ord+w+%3E+ord+c+%3D+Tree+c+cs+%3A+insert+%28w%3Aws%29+ts%0A++%7C+otherwise+++++%3D+Tree+c+%28insert+ws+cs%29+%3A+ts%0A---------------------------------------------------------------------%0A%0A--+A+set+of+words%0Asample+%3D+%5B%0A++%22aback%22%2C%0A++%22abaft%22%2C%0A++%22abandon%22%2C%0A++%22abandoned%22%2C%0A++%22abandoning%22%2C%0A++%22abandonment%22%2C%0A++%22abandons%22%2C%0A++%22abase%22%2C%0A++%22abased%22%2C%0A++%22abasement%22%2C%0A++%22abasements%22%2C%0A++%22abases%22%2C%0A++%22abash%22%2C%0A++%22abashed%22%2C%0A++%22abashes%22%2C%0A++%22abashing%22%2C%0A++%22zonal%22%2C%0A++%22zonally%22%2C%0A++%22zone%22%2C%0A++%22zoned%22%2C%0A++%22zones%22%2C%0A++%22zoning%22%2C%0A++%22zoo%22%2C%0A++%22zoological%22%2C%0A++%22zoologically%22%2C%0A++%22zoom%22%2C%0A++%22zooms%22%5D%0A%0A--+the+same+set+in+scrambled+order%0Ascrambled+%3D+map+reverse+%28sortBy+precede+%28map+reverse+sample%29%29%0A++where+precede+%5B%5D+_+%3D+True%0A++++++++precede+%28_%3A_%29+%5B%5D+%3D+False%0A++++++++precede+%28x%3Axs%29+%28y%3Ays%29+%0A+++++++++++%7C+ord+x+%3C+ord+y+%3D+True%0A+++++++++++%7C+ord+y+%3C+ord+x+%3D+False%0A+++++++++++%7C+otherwise+++++%3D+precede+xs+ys%0A%0A--+build+a+trie+from+a+list+of+words%3A%0AbuildTrie+%3A%3A+%5BString%5D+-%3E+Trie%0AbuildTrie+wordList+%3D+foldr+%28%5Cx+y+-%3E+insert+x+y%29+%5B%5D+wordList%0A%0A--+print+the+trie%0App+trie+%3D+ppaux+%22%22+trie%0A++where+ppaux+s+%28Tree+c+%5B%5D%29+%7C+c+%3D%3D+%27.%27++%3D+%5Bs%5D%0A++++++++++++++++++++++++++++%7C+otherwise+%3D+%5B%5D%0A++++++++ppaux+s+%28Tree+c+%28x%3Axs%29%29+%3D+ppaux+%28s%2B%2B%5Bc%5D%29+x+%2B%2B+ppaux+s+%28Tree+c+xs%29%0A%0A--+build+and+print+all+the+words+in+a+trie%0A--+a+share+prefix+is+printed+for+each+word+sharing+it%0Amain+%3D+foldr+%28%5Cx+y+-%3E+pp+x+%2B%2B+y%29+%5B%5D+%28buildTrie+scrambled%29%0A&upload%3Flang=curry" was not found on this server.