symbolToString [notSymbol] = throwError $ TypeMismatch "symbol" notSymbol
symbolToString [notSymbol] = throwError $ TypeMismatch "symbol" notSymbol
symbolToString [notSymbol] = throwError $ TypeMismatch "symbol" notSymbol