main module int
    USE TEXTIO
declare
    J is integer
    I is pointer J
    K : I
    L : J
enddeclare

L := force integer (K)

out_record  (TTY)

out_integer (TTY, L)
out_record  (TTY)
endmodule