renamed function for euler 67
sicp exercise 1.3
haskell solution to euler #4