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