hailstoneLen :: Integer -> Integer
hailstoneLen n = intListLength (hailstoneSeq n) -1
hailstoneLen :: Integer -> Integer
hailstoneLen n = intListLength (hailstoneSeq n) -1
hailstoneLen n = intListLength (hailstoneSeq n) -1