# 実験:終了後に変な出力 print++$|+($n=<>+1)%2,$",$n>>1,$/;print$`,$",$n+<>=~$"-$`-$',$/while<>;print "hoge";