main module badcall
declare
	x,y,z : real
	i,j,k : integer
enddeclare
procedure hi ( l : integer, r : real )
endprocedure

hi (i,j)
hi (x,y)
hi (x,i)
endprocedure