genN n
 | n <= 1   = [[0],[1],[2]]
 | n > 1  = [ e : rs | rs <- genN (n-1), e <- [0,1,2] ]




main = print $ show (genN 5)