SET-USER-NAME str
Set the user name in system/user/name
SET-USER-NAME is a function value.
set-user-name: func [str [string!]][system/user/name: str]