samer@0: % dup - Arrow to duplicate one input to two outputs. samer@0: % samer@0: % dup :: arrow({A},{A,A},empty). samer@0: function u=dup, u=arr(@dupfn); end samer@0: function [x,y]=dupfn(x); y=x; end