[REBOL] Newbie seeks help Re:(2)

[dave]

>to-2byte: func [x [integer!]][
> head reverse do join "#{" [(copy skip (to-string to-hex x) 4) "}"]
>]
>

Works a treat much thanks

Dave