puts stdout "test long pipeline can be curried with simple c=x.=d e |> f etc  assignment  (no space after =)"

puts stdout "c=x.={5*3} |p1> y.= expr 3 * |p2> {set debug \"val is \$data\";set data}  |debug> z.= 2 + |> { set data} |> {puts stderr \"debug:\$debug\n p1:\$p1\np2:\$p2\"; set data}"

c=x.={5*3} |p1> y.= expr 3 * |p2> {set debug "val is $data";set data}  |debug> z.= 2 + |> { set data} |> {puts stderr "debug:$debug\n p1:$p1\np2:$p2"; set data}

puts stdout "method1 using \$c"
$c
set answer [$c]

puts stdout "set answer \[\$c\]"
puts stdout "  $answer"

puts stdout "method2 using eval \$c"
eval $c

set answer2 [eval $c]
puts stdout "set answer2 \[eval \$c\]"
puts stdout "  $answer2"

puts stdout "-done-"