let cut ?(n:int=1) (s:string) = 
 let l = String.length s in
 let rec loop s l = 
  if l=0 then []  else
  if l<n then [s] else
   let l' = (l-n) in
   (String.sub s 0 n)::(loop (String.sub s n l') l')
 in loop s l