(set (intern (read-string "Enter variable name: ")) 123)