type
　イクラちゃん = object
　procedure talk1;
　procedure talk2;
　procedure talk3;
end;

procedure イクラちゃん.talk1;
begin
　say "ハーイ！";
end;

procedure イクラちゃん.talk2;
begin
　say "チャーン！";
end;

procedure イクラちゃん.talk3;
begin
　say "ばぶー";
end;