type
　ワカメちゃん = object
　procedure talk1;
　procedure talk2;
　procedure talk3;
end;

procedure ワカメちゃん.talk1;
begin
　say "あんっダメェ！";
end;

procedure ワカメちゃん.talk2;
begin
　say "あぁ〜〜そこっ！そこイイのぉ〜〜！！";
end;

procedure ワカメちゃん.talk3;
begin
　say "あん！ダメ！！イっちゃう！！！";
end;