/*　2003パニック　*/

#OCTAVE REVERSE

$loop=16;

$b=@e1,0,24,0,0o1d;

$s=@e1,0,24,0,0o0g;

$cs=@e1,0,48,0,0o0d;

$h=@e1,0,4,40,0,0,0o0d;

$x{y}=/:r4%y:/r%y;

$a{b,c,d,e}=v6@5@w4>>%b/:$loop%e/:%d$x{%c}:/r1:/;

#WAV10 0,89ABCDEF FEDCBA98 76543210 01234567

T160

@5@w2l8q4@l12,24,,36>>/:$loop/:/:e>cdecb-/a-eq16c4r4q4<://a-e

@5@w2ns-2l8q4@l12,24,,36>>/:$loop/:/:e>cdecb-/a-eq16c4q4r4<://a-e

l32@10-0@e1,0,0,180,0>>v4q16/:$loop/:14cc+dd+eff+gg+gf+fed+dc+:/r1:/;

@10-0@e1,0,0,180,0l8v15/:$loop/:14c>c

$a{,b-,7,};$a{>,c,7,};$a{>,d,3,/:4r1:/};$a{>,e,3,/:4r1:/};

@7l16/:$loop/:v15$cs8@v100$s$b//:15$b$b$s$b:/://:11$b$b$s$b://:3$s8/r:/$s4/:4$s:/:/

さぁみんなも試してみよう！