let rec remove_left_space (s : string) (l : int) (i : int) : string = (
   if (i<l) 
   then (if ((String.get s i)=' '
           then (remove_left_space s l (i+1)) 
        else (String.sub s i (l-i));) 
   else "";
  )