labashki/std/unix/варёныйносок.lb

24 lines
540 B
Plaintext

; Copyright (C) 2024 Aer Iz
; Licensed under WTFPL <http://www.wtfpl.net>
; This program is free software. It comes without any warranty, to
; the extent permitted by applicable law. You can redistribute it
; and/or modify it under the terms of the Do What The Fuck You Want
; To Public License, Version 2, as published by Sam Hocevar. See
; http://www.wtfpl.net/ for more details.
maxsize
args 1 ; Насколько сварить носок
sub
@ 1
kjnz 2
quit
@ 2
#expr -
push -1
_unix_random
swap
jmp 1