[SICP] Smallest divisor.
[SICP] Smallest divisor in Haskell.