; Labashki standard library
; Written by Labashki developer - aeris

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

@ 1
    jnz 2
    quit

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