如何在ParallelDo中以流方式写文件

Question

背景

由于计算量大，需要通过并行计算一些表达式，它们之间无关，也没有顺序要求。
需要把计算的结果保存至文件中（每个结果一行），或使用SQLite数据库中也行。

比如通过 OpenWrite 以流方式打开个一个文件，然后在 ParallelDo 中用 WriteLine 等函数向文件中写数据。

例子（测试用）

(*错误的例子*)
sw = OpenWrite["test.txt"];(*打开文件*)
ParallelDo[
 s = StringRiffle[{k, k^2, k^3}, "\t"];(*计算表达式*)
 WriteLine[sw, s];(*写文件*)
 , {k, 1, 10}];
Close[sw];

(*勉强可行的例子，但PutAppend存储的是Mma表达式，不爽还得二次编辑*)
ParallelDo[
  s = StringRiffle[{k, k^2, k^3}, "\t"];(*计算表达式*)
  s >>> "D:/test.txt"(*写文件*)
  , {k, 1, 10}];