procedure HUGME()
var
you: boolean;

begin
while (you<>dead) do go_to_profile();
go_to_hell();

procedure go_to _profile()
begin
hug_me();
end;

end.