import Data.List main = do print r print $ length r r=[l|l@[a,b,c,d,e,f,g,h,i]<-permutations [1..9],a+div (13*b)c+d+12*e-f-11+div (g*h)i-10==66&&mod(13*b)c==0&&mod (g*h)i==0]