countStepsToOne :: Int -> Int
countStepsToOne n = length (takeWhile (/=1) (iterate collatz n))
countStepsToOne :: Int -> Int
countStepsToOne n = length (takeWhile (/=1) (iterate collatz n))
countStepsToOne n = length (takeWhile (/=1) (iterate collatz n))