let big (f:binop) (l:string list) : 'a = try List.big f l with Failure "big" -> ""