function [h,t]=split(n,s)
% split - split sequence into initial and trailing segments
%
% split :: N:natural, seq(A) -> seq(A), seq(A)

h=take(n,s);
t=drop(n,s);

	

