let grep (e:string) (sl:string list) : string list = let r = Str.regexp e in List.filter (Bool.match_whole r) sl