diff --git a/c/reg_test/expected/out b/c/reg_test/expected/out
index 8085d72c9..710042be4 100644
--- a/c/reg_test/expected/out
+++ b/c/reg_test/expected/out
@@ -27740,6 +27740,116 @@ n=1,a=zee,b=wye
 n=2,a=zee,b=wye
 
 
+================================================================
+DSL EMITP
+
+mlr put -q @a[NR]=$a; @b[NR]=$b; emitp > "./output/emitp1/out.".$a.$b, (@a, @b) ./reg_test/input/abixy
+
+mlr cat -n ./output/emitp1/out.ekspan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan
+
+mlr cat -n ./output/emitp1/out.ekswye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye
+
+mlr cat -n ./output/emitp1/out.ekszee
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee
+
+mlr cat -n ./output/emitp1/out.hatwye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye
+
+mlr cat -n ./output/emitp1/out.panpan
+n=1,a:1=pan,b:1=pan
+
+mlr cat -n ./output/emitp1/out.panwye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye,a:10=pan,b:10=wye
+
+mlr cat -n ./output/emitp1/out.wyepan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan
+
+mlr cat -n ./output/emitp1/out.wyewye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye
+
+mlr cat -n ./output/emitp1/out.zeepan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan
+
+mlr cat -n ./output/emitp1/out.zeewye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye
+
+mlr put -q @a[NR]=$a; @b[NR]=$b; emitp > "./output/emitp1/out.".$a.$b, (@a, @b) ./reg_test/input/abixy
+
+mlr cat -n ./output/emitp1/out.ekspan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan
+
+mlr cat -n ./output/emitp1/out.ekswye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye
+
+mlr cat -n ./output/emitp1/out.ekszee
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee
+
+mlr cat -n ./output/emitp1/out.hatwye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye
+
+mlr cat -n ./output/emitp1/out.panpan
+n=1,a:1=pan,b:1=pan
+
+mlr cat -n ./output/emitp1/out.panwye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye,a:10=pan,b:10=wye
+
+mlr cat -n ./output/emitp1/out.wyepan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan
+
+mlr cat -n ./output/emitp1/out.wyewye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye
+
+mlr cat -n ./output/emitp1/out.zeepan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan
+
+mlr cat -n ./output/emitp1/out.zeewye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye
+
+mlr put -q @a[NR]=$a; @b[NR]=$b; emitp >> "./output/emitp1/out.".$a.$b, (@a, @b) ./reg_test/input/abixy
+
+mlr cat -n ./output/emitp1/out.ekspan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan
+
+mlr cat -n ./output/emitp1/out.ekswye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye
+
+mlr cat -n ./output/emitp1/out.ekszee
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee
+
+mlr cat -n ./output/emitp1/out.hatwye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye
+
+mlr cat -n ./output/emitp1/out.panpan
+n=1,a:1=pan,b:1=pan
+n=2,a:1=pan,b:1=pan
+
+mlr cat -n ./output/emitp1/out.panwye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye,a:10=pan,b:10=wye
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye,a:9=hat,b:9=wye,a:10=pan,b:10=wye
+
+mlr cat -n ./output/emitp1/out.wyepan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan
+
+mlr cat -n ./output/emitp1/out.wyewye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye
+
+mlr cat -n ./output/emitp1/out.zeepan
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan
+
+mlr cat -n ./output/emitp1/out.zeewye
+n=1,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye
+n=2,a:1=pan,b:1=pan,a:2=eks,b:2=pan,a:3=wye,b:3=wye,a:4=eks,b:4=wye,a:5=wye,b:5=pan,a:6=zee,b:6=pan,a:7=eks,b:7=zee,a:8=zee,b:8=wye
+
+
 ================================================================
 OOSVAR-FROM-SREC ASSIGNMENT
 
diff --git a/c/reg_test/run b/c/reg_test/run
index aaf861617..acf25fe36 100755
--- a/c/reg_test/run
+++ b/c/reg_test/run
@@ -3564,107 +3564,137 @@ run_mlr cat -n $emitf1/out.wyewye
 run_mlr cat -n $emitf1/out.zeepan
 run_mlr cat -n $emitf1/out.zeewye
 
-## ----------------------------------------------------------------
-#announce DSL EMITP
-#
-#emitp1=$reloutdir/emitp1
-#mkdir -p $emitp1
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp1'/out.".$a.$b, (@a, @b)' $indir/abixy
-##run_mlr cat -n $emitp1/out.ekspan
-##run_mlr cat -n $emitp1/out.ekswye
-##run_mlr cat -n $emitp1/out.ekszee
-##run_mlr cat -n $emitp1/out.hatwye
-##run_mlr cat -n $emitp1/out.panpan
-##run_mlr cat -n $emitp1/out.panwye
-##run_mlr cat -n $emitp1/out.wyepan
-##run_mlr cat -n $emitp1/out.wyewye
-##run_mlr cat -n $emitp1/out.zeepan
-##run_mlr cat -n $emitp1/out.zeewye
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp1'/out.".$a.$b, (@a, @b)' $indir/abixy
-##run_mlr cat -n $emitp1/out.ekspan
-##run_mlr cat -n $emitp1/out.ekswye
-##run_mlr cat -n $emitp1/out.ekszee
-##run_mlr cat -n $emitp1/out.hatwye
-##run_mlr cat -n $emitp1/out.panpan
-##run_mlr cat -n $emitp1/out.panwye
-##run_mlr cat -n $emitp1/out.wyepan
-##run_mlr cat -n $emitp1/out.wyewye
-##run_mlr cat -n $emitp1/out.zeepan
-##run_mlr cat -n $emitp1/out.zeewye
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp >> "'$emitp1'/out.".$a.$b, (@a, @b)' $indir/abixy
-##run_mlr cat -n $emitp1/out.ekspan
-##run_mlr cat -n $emitp1/out.ekswye
-##run_mlr cat -n $emitp1/out.ekszee
-##run_mlr cat -n $emitp1/out.hatwye
-##run_mlr cat -n $emitp1/out.panpan
-##run_mlr cat -n $emitp1/out.panwye
-##run_mlr cat -n $emitp1/out.wyepan
-##run_mlr cat -n $emitp1/out.wyewye
-##run_mlr cat -n $emitp1/out.zeepan
-##run_mlr cat -n $emitp1/out.zeewye
-#
-#emitp2=$reloutdir/emitp2
-#mkdir -p $emitp2
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp >> "'$emitp2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
-#
-## ----------------------------------------------------------------
-#announce DSL EMIT
-#
-#emit1=$reloutdir/emit1
-#mkdir -p $emit1
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit1'/out.".$a.$b, (@a, @b)' $indir/abixy
-##run_mlr cat -n $emit1/out.ekspan
-##run_mlr cat -n $emit1/out.ekswye
-##run_mlr cat -n $emit1/out.ekszee
-##run_mlr cat -n $emit1/out.hatwye
-##run_mlr cat -n $emit1/out.panpan
-##run_mlr cat -n $emit1/out.panwye
-##run_mlr cat -n $emit1/out.wyepan
-##run_mlr cat -n $emit1/out.wyewye
-##run_mlr cat -n $emit1/out.zeepan
-##run_mlr cat -n $emit1/out.zeewye
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit1'/out.".$a.$b, (@a, @b)' $indir/abixy
-##run_mlr cat -n $emit1/out.ekspan
-##run_mlr cat -n $emit1/out.ekswye
-##run_mlr cat -n $emit1/out.ekszee
-##run_mlr cat -n $emit1/out.hatwye
-##run_mlr cat -n $emit1/out.panpan
-##run_mlr cat -n $emit1/out.panwye
-##run_mlr cat -n $emit1/out.wyepan
-##run_mlr cat -n $emit1/out.wyewye
-##run_mlr cat -n $emit1/out.zeepan
-##run_mlr cat -n $emit1/out.zeewye
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit >> "'$emit1'/out.".$a.$b, (@a, @b)' $indir/abixy
-##run_mlr cat -n $emit1/out.ekspan
-##run_mlr cat -n $emit1/out.ekswye
-##run_mlr cat -n $emit1/out.ekszee
-##run_mlr cat -n $emit1/out.hatwye
-##run_mlr cat -n $emit1/out.panpan
-##run_mlr cat -n $emit1/out.panwye
-##run_mlr cat -n $emit1/out.wyepan
-##run_mlr cat -n $emit1/out.wyewye
-##run_mlr cat -n $emit1/out.zeepan
-##run_mlr cat -n $emit1/out.zeewye
-#
-#emit2=$reloutdir/emit2
-#mkdir -p $emit2
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
-#
-#run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit >> "'$emit2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
+# ----------------------------------------------------------------
+announce DSL EMITP
+
+emitp1=$reloutdir/emitp1
+mkdir -p $emitp1
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp1'/out.".$a.$b, (@a, @b)' $indir/abixy
+run_mlr cat -n $emitp1/out.ekspan
+run_mlr cat -n $emitp1/out.ekswye
+run_mlr cat -n $emitp1/out.ekszee
+run_mlr cat -n $emitp1/out.hatwye
+run_mlr cat -n $emitp1/out.panpan
+run_mlr cat -n $emitp1/out.panwye
+run_mlr cat -n $emitp1/out.wyepan
+run_mlr cat -n $emitp1/out.wyewye
+run_mlr cat -n $emitp1/out.zeepan
+run_mlr cat -n $emitp1/out.zeewye
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp1'/out.".$a.$b, (@a, @b)' $indir/abixy
+run_mlr cat -n $emitp1/out.ekspan
+run_mlr cat -n $emitp1/out.ekswye
+run_mlr cat -n $emitp1/out.ekszee
+run_mlr cat -n $emitp1/out.hatwye
+run_mlr cat -n $emitp1/out.panpan
+run_mlr cat -n $emitp1/out.panwye
+run_mlr cat -n $emitp1/out.wyepan
+run_mlr cat -n $emitp1/out.wyewye
+run_mlr cat -n $emitp1/out.zeepan
+run_mlr cat -n $emitp1/out.zeewye
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp >> "'$emitp1'/out.".$a.$b, (@a, @b)' $indir/abixy
+run_mlr cat -n $emitp1/out.ekspan
+run_mlr cat -n $emitp1/out.ekswye
+run_mlr cat -n $emitp1/out.ekszee
+run_mlr cat -n $emitp1/out.hatwye
+run_mlr cat -n $emitp1/out.panpan
+run_mlr cat -n $emitp1/out.panwye
+run_mlr cat -n $emitp1/out.wyepan
+run_mlr cat -n $emitp1/out.wyewye
+run_mlr cat -n $emitp1/out.zeepan
+run_mlr cat -n $emitp1/out.zeewye
+
+emitp2=$reloutdir/emitp2
+mkdir -p $emitp2
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
+run_mlr cat -n $emitp2/out.ekspan
+run_mlr cat -n $emitp2/out.ekswye
+run_mlr cat -n $emitp2/out.ekszee
+run_mlr cat -n $emitp2/out.hatwye
+run_mlr cat -n $emitp2/out.panpan
+run_mlr cat -n $emitp2/out.panwye
+run_mlr cat -n $emitp2/out.wyepan
+run_mlr cat -n $emitp2/out.wyewye
+run_mlr cat -n $emitp2/out.zeepan
+run_mlr cat -n $emitp2/out.zeewye
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp > "'$emitp2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
+run_mlr cat -n $emitp2/out.ekspan
+run_mlr cat -n $emitp2/out.ekswye
+run_mlr cat -n $emitp2/out.ekszee
+run_mlr cat -n $emitp2/out.hatwye
+run_mlr cat -n $emitp2/out.panpan
+run_mlr cat -n $emitp2/out.panwye
+run_mlr cat -n $emitp2/out.wyepan
+run_mlr cat -n $emitp2/out.wyewye
+run_mlr cat -n $emitp2/out.zeepan
+run_mlr cat -n $emitp2/out.zeewye
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emitp >> "'$emitp2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
+run_mlr cat -n $emitp2/out.ekspan
+run_mlr cat -n $emitp2/out.ekswye
+run_mlr cat -n $emitp2/out.ekszee
+run_mlr cat -n $emitp2/out.hatwye
+run_mlr cat -n $emitp2/out.panpan
+run_mlr cat -n $emitp2/out.panwye
+run_mlr cat -n $emitp2/out.wyepan
+run_mlr cat -n $emitp2/out.wyewye
+run_mlr cat -n $emitp2/out.zeepan
+run_mlr cat -n $emitp2/out.zeewye
+
+# ----------------------------------------------------------------
+announce DSL EMIT
+
+emit1=$reloutdir/emit1
+mkdir -p $emit1
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit1'/out.".$a.$b, (@a, @b)' $indir/abixy
+#run_mlr cat -n $emit1/out.ekspan
+#run_mlr cat -n $emit1/out.ekswye
+#run_mlr cat -n $emit1/out.ekszee
+#run_mlr cat -n $emit1/out.hatwye
+#run_mlr cat -n $emit1/out.panpan
+#run_mlr cat -n $emit1/out.panwye
+#run_mlr cat -n $emit1/out.wyepan
+#run_mlr cat -n $emit1/out.wyewye
+#run_mlr cat -n $emit1/out.zeepan
+#run_mlr cat -n $emit1/out.zeewye
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit1'/out.".$a.$b, (@a, @b)' $indir/abixy
+#run_mlr cat -n $emit1/out.ekspan
+#run_mlr cat -n $emit1/out.ekswye
+#run_mlr cat -n $emit1/out.ekszee
+#run_mlr cat -n $emit1/out.hatwye
+#run_mlr cat -n $emit1/out.panpan
+#run_mlr cat -n $emit1/out.panwye
+#run_mlr cat -n $emit1/out.wyepan
+#run_mlr cat -n $emit1/out.wyewye
+#run_mlr cat -n $emit1/out.zeepan
+#run_mlr cat -n $emit1/out.zeewye
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit >> "'$emit1'/out.".$a.$b, (@a, @b)' $indir/abixy
+#run_mlr cat -n $emit1/out.ekspan
+#run_mlr cat -n $emit1/out.ekswye
+#run_mlr cat -n $emit1/out.ekszee
+#run_mlr cat -n $emit1/out.hatwye
+#run_mlr cat -n $emit1/out.panpan
+#run_mlr cat -n $emit1/out.panwye
+#run_mlr cat -n $emit1/out.wyepan
+#run_mlr cat -n $emit1/out.wyewye
+#run_mlr cat -n $emit1/out.zeepan
+#run_mlr cat -n $emit1/out.zeewye
+
+emit2=$reloutdir/emit2
+mkdir -p $emit2
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit > "'$emit2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
+
+run_mlr put -q '@a[NR]=$a; @b[NR]=$b; emit >> "'$emit2'/out.".$a.$b, (@a, @b), "NR"' $indir/abixy
 
 # ----------------------------------------------------------------
 announce OOSVAR-FROM-SREC ASSIGNMENT