0 0 0
36 0.6283185307179586 0.5877852522924731
72 1.2566370614359172 0.9510565162951535
108 1.8849555921538759 0.9510565162951536
144 2.5132741228718345 0.5877852522924732
180 3.141592653589793 1.2246467991473532e-16
216 3.7699111843077517 -0.587785252292473
252 4.39822971502571 -0.9510565162951535
288 5.026548245743669 -0.9510565162951536
324 5.654866776461628 -0.5877852522924734
360 6.283185307179586 -2.4492935982947064e-16

( svfig challenge, 7/24/2021 )

( print_demo for jeforth614)
: print_demo
   0 10 for cr
      dup . space
      dup pi * 180 / dup . space
      sin . space
      36 +
   next drop ;
print_demo

( array demo for jeforth614 )
: M_fill
   0 10 for
      dup ,
      dup pi * 180 / dup ,
      sin ,
      36 +
   next drop ;
create M 
M_fill
: M.+ M over array@ . 1 + ;
: M_print
   0 10 for cr
      M.+ M.+ M.+
   next drop ;
M_print

( print_demo for ooeforth203)
: print_demo
   0 10 for cr
      dup . space
      dup pi * 180 / . space
      0 . ( ref )
      dup sin . space
      36 +
   next drop ;
print_demo

( array demo for ooeforth203 )
: M_fill
   0 10 for
      dup ,
      dup pi * 180 / ,
      0 , ( ref )
      dup sin ,
      36 +
   next drop ;
create M 
M_fill
: M_ref
   5878 M 6 array!
   9511 M 10 array!
   9511 M 14 array!
   5878 M 18 array!
   -5878 M 26 array!
   -9511 M 30 array!
   -9511 M 34 array!
   -5878 M 38 array!
   ;
M_ref
: M.+ M over array@ . 1 + ;
: M_print
   0 10 for cr
      M.+ M.+ M.+ M.+
   next drop ;
M_print