declare {,e}{p,s}{,1,2,3,4} f4 sw4 fcs=${fcs- } sw3 f{,e}3 s r c fr nr nc IFS=$'\n' re
eval -- "${p+r+=\$p}
$ep
$ep1
${p1+r+=\$p1}"
for s ; do
 [[ ( ! -e $s && ! -v nc ) || -d $s ]] && continue
 mapfile -t -d $'\n' c < "$s"
 eval -- "$ep2
${p2+r+=\$p2}
${ep3+$ep3${sw3=}}
${es3+${sw3=}}
${sw3-${nr-r+=\$c}}
${sw3+${f3+${fe3-r+=\$c}}}
${s3+r+=\$s3}
$es3
${s2+r+=\$s2}
$es2"
done
eval -- "${s1+r+=\$s1}
$es1
pcres+=(\$r)
$es"