numericBinop op params = mapM unpackNum params >>= return . Number . foldl1 op
numericBinop op params = mapM unpackNum params >>= return . Number . foldl1 op
numericBinop op params = mapM unpackNum params >>= return . Number . foldl1 op