doOp _ op args = error $ "doOp not implemented (" ++ show (op, args) ++ ")"
doOp _ op args = error $ "doOp not implemented (" ++ show (op, args) ++ ")"
doOp _ op args = error $ "doOp not implemented (" ++ show (op, args) ++ ")"