; Чё-то кириллицей.
@ 0
 $string liblabafile/test.lb
 $string r
 #exec liblabafile/open_file.lb

@ 1
 #exec std/dup4.lb
 #exec liblabafile/getc_file.lb
 ; |char ptr[4]>
 push 4
 pick
 push 4
 pick
 push 4
 pick
 push 4
 pick
 ; |ptr[4] char ptr[4]>
 #exec liblabafile/eof_file.lb
 jnz 2
 putc
 jmp 1

@ 2
 quit