gistfile1.txt

Prelude> import Data.List
Prelude Data.List> let classes = ["WM", "BM", "RM", "F", "T", "N"]
Prelude Data.List> sort . nub . fmap sort $ do {a<-classes; b<-classes; c<-classes; d<-classes; return [a,b,c,d]}
[["BM","BM","BM","BM"],["BM","BM","BM","F"],["BM","BM","BM","N"],["BM","BM","BM","RM"],["BM","BM","BM","T"],["BM","BM","BM","WM"],["BM","BM","F","F"],["BM","BM","F","N"],["BM","BM","F","RM"],["BM","BM","F","T"],["BM","BM","F","WM"],["BM","BM","N","N"],["BM","BM","N","RM"],["BM","BM","N","T"],["BM","BM","N","WM"],["BM","BM","RM","RM"],["BM","BM","RM","T"],["BM","BM","RM","WM"],["BM","BM","T","T"],["BM","BM","T","WM"],["BM","BM","WM","WM"],["BM","F","F","F"],["BM","F","F","N"],["BM","F","F","RM"],["BM","F","F","T"],["BM","F","F","WM"],["BM","F","N","N"],["BM","F","N","RM"],["BM","F","N","T"],["BM","F","N","WM"],["BM","F","RM","RM"],["BM","F","RM","T"],["BM","F","RM","WM"],["BM","F","T","T"],["BM","F","T","WM"],["BM","F","WM","WM"],["BM","N","N","N"],["BM","N","N","RM"],["BM","N","N","T"],["BM","N","N","WM"],["BM","N","RM","RM"],["BM","N","RM","T"],["BM","N","RM","WM"],["BM","N","T","T"],["BM","N","T","WM"],["BM","N","WM","WM"],["BM","RM","RM","RM"],["BM","RM","RM","T"],["BM","RM","RM","WM"],["BM","RM","T","T"],["BM","RM","T","WM"],["BM","RM","WM","WM"],["BM","T","T","T"],["BM","T","T","WM"],["BM","T","WM","WM"],["BM","WM","WM","WM"],["F","F","F","F"],["F","F","F","N"],["F","F","F","RM"],["F","F","F","T"],["F","F","F","WM"],["F","F","N","N"],["F","F","N","RM"],["F","F","N","T"],["F","F","N","WM"],["F","F","RM","RM"],["F","F","RM","T"],["F","F","RM","WM"],["F","F","T","T"],["F","F","T","WM"],["F","F","WM","WM"],["F","N","N","N"],["F","N","N","RM"],["F","N","N","T"],["F","N","N","WM"],["F","N","RM","RM"],["F","N","RM","T"],["F","N","RM","WM"],["F","N","T","T"],["F","N","T","WM"],["F","N","WM","WM"],["F","RM","RM","RM"],["F","RM","RM","T"],["F","RM","RM","WM"],["F","RM","T","T"],["F","RM","T","WM"],["F","RM","WM","WM"],["F","T","T","T"],["F","T","T","WM"],["F","T","WM","WM"],["F","WM","WM","WM"],["N","N","N","N"],["N","N","N","RM"],["N","N","N","T"],["N","N","N","WM"],["N","N","RM","RM"],["N","N","RM","T"],["N","N","RM","WM"],["N","N","T","T"],["N","N","T","WM"],["N","N","WM","WM"],["N","RM","RM","RM"],["N","RM","RM","T"],["N","RM","RM","WM"],["N","RM","T","T"],["N","RM","T","WM"],["N","RM","WM","WM"],["N","T","T","T"],["N","T","T","WM"],["N","T","WM","WM"],["N","WM","WM","WM"],["RM","RM","RM","RM"],["RM","RM","RM","T"],["RM","RM","RM","WM"],["RM","RM","T","T"],["RM","RM","T","WM"],["RM","RM","WM","WM"],["RM","T","T","T"],["RM","T","T","WM"],["RM","T","WM","WM"],["RM","WM","WM","WM"],["T","T","T","T"],["T","T","T","WM"],["T","T","WM","WM"],["T","WM","WM","WM"],["WM","WM","WM","WM"]]
Prelude Data.List> length . sort . nub . fmap sort $ do {a<-classes; b<-classes; c<-classes; d<-classes; return [a,b,c,d]}
126