let rec lstrip x =  
 let l = (String.length x) in if (l=0) then x else 
   begin
   let first = (String.sub x 0 1) in match first with
   | "\n" | " " | "\t" -> lstrip (String.sub x 1 (l-1))
   | _ -> x
   end