o_o(arg)

function  o_o(arg)
%who knows, o_o: somewhat astonished ?    o_o(1): more or less OK ?      
%Call:
%                   o_o
%                   o_o(1)
%Input:
%        any: if set, inverts sound sequence
%Output:
%		sound
%	Vassili Pastushenko	 2005
%==============================
if nargin
         S=bip(1);
else
    S=bip;
end
         S=[S;zeros(1200,1);flipud(S)];
         sound(S);
         pause(.1);

function  S=bip(pib)
%Sound bit
%Call:
%           bip
%Input:
%
%Output:
%
%
%Vassili Pastushenko	Jul	2004
%==============================
t=(1:.1:100)';
ONETWO=linspace(1,3,length(t))';
S=cos(t.*ONETWO)./(2+ONETWO);
if nargin>0
    S=flipud(S);
end
if nargout<1
sound(S);
clear S;
end