4BSD/usr/doc/lisp/xx.f

	subroutine foo (ia)
	i = ipat(icdr(ia))
	print 4,i
4	format(' ( ',i9)
	end

	function icdr(ix)
	integer ix(2)
	icdr = ix(2)
	return
	end

	function ipat(ix)
	integer ix(10)
	ipat = ix(1)
	end