$n = Inputbox("Smart Counting", "Number?")
;number
$a = $n+1
;next number
$b = $a+1
;next number
$c = $b+1
;next number
$h = 1
;heads
$t = 0
;tails
$r = Random($t, $h, 1)
;coin flip
If $r = $t Then
Exit
Endif

If $r = $h Then
$f = FileOpen("output.txt", 1)
FileWriteLine($f, $n)
FileFlush($f)
FileWriteLine($f, $a)
FileFlush($f)
FileWriteLine($f, $b)
FileFlush($f)
FileWriteLine($f, $c)
FileFlush($f)
FileClose($f)
;output
Endif