(P:=[:a :r|a size=0and:[(r fold:[:a :b|stdout<