external integer fred
external routine bert(integer i)
  fred = i
end


external routine shiela(integer k)
own integer local = 42
  k = local
  local = local + 1
end

begin
  bert(22)
  shiela(fred)
end of programme