VERY VERY CRUDE UNDO FUNCTION