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