% ascan - Arrow to implement scanl.
%
% ascan :: ((A,S)->S), S -> arrow({A},{S},S).
function o=ascan(sfn,x0)
	o=loop(@st,@(sz)x0);
	function [y,s]=st(x,s), s=sfn(x,s); y=s; end
end
