let is_blank_char = function ' '|'\t'|'\n'|'\r' -> true | _ -> false