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