program towel;

var
  zaphod,
  breeblebox,
  adams: integer;

function guide(arthur, ford: integer): integer;

begin
  guide := arthur + ford
end;

begin
  { error
    guide: integer x integer -> integer
    call: integer x integer x integer x integer -> integer }
  zaphod := guide(zaphod, breeblebox, adams, adams)
end.