手を洗っている最中に再び催すというのを2回連続でやった直後に書いた糞リプトです。便意ともどもお収めください。

unko.pl

# これはPerlプログラムを模した作文です。電子計算機において実行するためのものではありません。

$unko = 100;
$haraita = 1;

while ($haraita) {
  print "ponponpeinn\n";
  wc();
  tearai();
}

sub wc {
  print "buriburi\n" x $unko;
  $unko *= 0.1;
  $haraita = 0;
  print "flush\n";
}

sub tearai {
  print "wash\n" x 30;
  $haraita = 1 if ($unko >= 1);
  print "clean hand\n";
}