x$subr t_foo ()
x$int	i
x$long	l
x$pntr	p
x$pntr	p2

save
begin
#!# 7

	i = 1
	l = 1
	p = 1
end