nSolutions :: Integral a => (a, a) -> a
nSolutions (a,b) = a * (a+1) * b * (b+1) `div` 4
nSolutions :: Integral a => (a, a) -> a
nSolutions (a,b) = a * (a+1) * b * (b+1) `div` 4
nSolutions (a,b) = a * (a+1) * b * (b+1) `div` 4