% ainsert - Arrow which does whatever you write in the text box
%
% ainsert :: expr(arrow(A,B,S)) -> arrow(A,B,S).
%
% expr(T) denotes the type of strings which evaulate to a value of type T.
% This arrow provides a text box initialised to the given string.
% The arrow behaves like the arrow created by evaluating the expression.
% You can type a new expression at any time and the arrow will switch
% behaviour.

function o=ainsert(a0,varargin)
	o=(aid + esender('init',a0,varargin{:}))*aswitch(evalin('base',a0));
end
