sequenceList = []
hailstone(27, sequenceList)
put sequenceList
-- [27, 82, 41, 124, ... , 8, 4, 2, 1]

n = 0
maxLen = 0
repeat with i = 1 to 99999
  len = hailstone(i)
  if len>maxLen then
    n = i
    maxLen = len
  end if
end repeat
put n, maxLen
-- 77031 351