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