6 lines
177 B
Text
6 lines
177 B
Text
DEFINE write-floats ==
|
|
['g 0] [formatf] enconcat map rollup
|
|
['g 0] [formatf] enconcat map swap zip
|
|
"filename" "w" fopen swap
|
|
[[fputchars] 9 fputch] step 10 fputch] step
|
|
fclose.
|