とりあえずサブルーチン@loopを呼び出してまたその中で@loopを呼び出してとreturnで帰ってないので、他のＢＡＳＩＣだと危険な書き方になってますよ。 （ネストが深すぎます。というエラーになるんです通常）