( put$"Enter a variable name: "
& get$:?name
&   whl
  ' ( put$"Enter a numeric value: "
    & get$:?numeric:~#
    )
& !numeric:?!name
& put$(str$("Variable " !name " now has the value " !!name \n))
);