Code golf: find all anagrams

Question

A word is an anagram if the letters in that word can be re-arranged to form a different word.

Task:

• The shortest source code by character count to find

Answer 1

Haskell, 147 chars

prior sizes: 150 159 chars

import Char
import List
x=sort.map toLower
g&a=g(x a).x
main=interact$unlines.map unwords.filter((>1).length).groupBy((==)&).sortBy(compare&).lines

---

This version, at 165 chars satisifies the new, clarified rules:

import Char
import List
y=map toLower
x=sort.y
g&f=(.f).g.f
w[_]="";w a=show a++"\n"
main=interact$concatMap(w.nubBy((==)&y)).groupBy((==)&x).sortBy(compare&x).lines

This version handles:

1. Words in the input that differ only by case should only count as one word
2. The output needs to be one anagram set per line, but extra punctuation is acceptable