(  ࢮ ⠢ )
192 string 

21680 0  pokew
20463 2  pokew
19315 4  pokew
18231 6  pokew
17207 8  pokew
16242 10  pokew
15330 12  pokew
14470 14  pokew
13658 16  pokew
12891 18  pokew
12167 20  pokew
11485 22  pokew

( ᫥ ⠫ ⠢ )
: comp.
   24  0 do i  peekw
  192 24 do 2 / dup i j +  pokew 24 +loop drop 2 +loop ;

  comp.
  forget comp.

( <octave#> <note#> find.pitch )
: find.pitch
  1 - swap 1 - 12 * + 2 * dup 192 >= if drop 10 else  peekw then ;
