labast/scripts/std/unix/ВАРЁНЫЙНОСОК.lb
2024-02-05 17:13:32 +02:00

17 lines
223 B
Plaintext

; 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