|
|
1.1 ! moko 1: @main[] ! 2: ^from-1251[] ! 3: ! 4: $f1[^file::load[binary;247_utf8_bom.txt]] ! 5: ^show[f1;$f1] ! 6: ! 7: $f[^file::create[$f1; $.mode[text] ]] ! 8: ^show[f text from binary, automatic transcode by UTF-8 preambule;$f] ! 9: ! 10: @show[title;f] ! 11: $title : ^json:string[$f; $.file[text] ]