package require punk
catch {unset result}

dict= {a aaa b {z zzz x xxx y yyy}}

pipeset pipeline result.= in.= val $dict |> string toupper |> @@B/X=
puts stdout "pipeline: $pipeline"
$pipeline
puts stdout "result: $result"
punk::assert {$result eq "XXX"}

pipeset pipeline result.= in.= val $dict |> string toupper |> @tail/end/not-head/not-tail/0/0= 
puts stdout "pipeline: $pipeline"
$pipeline
puts stdout "result: $result"
punk::assert {$result eq "ZZZ"}


puts "-done-"