INSTALL "HAILSTONE"

      DIM freq%(351)
      FOR number% = 2 TO 100000
        seqlen% = FNhailstone(number%)
        freq%(seqlen%) += 1
      NEXT
      max% = 0
      FOR i% = 0 TO 351
        IF freq%(i%) > max% THEN
          max% = freq%(i%)
          mostcommon% = i%
        ENDIF
      NEXT

      PRINT "The most common sequence length is " ; mostcommon%
      PRINT "It occurs " ; max% " times"
      END