; Copyright (C) 2024 Aer Iz
; Licensed under WTFPL <http://www.wtfpl.net>

maxsize
args 1 ; Насколько сварить носок
sub

@ 1
    kjnz 2
    quit

@ 2
    #expr -
    push -1
    _unix_random
    swap
    jmp 1