1df
@verb #1236:"to_val_list" this none this rxdo #7788
@program #1236:"to_val_list" this none this
l = args[1]
what = {}
for x in (l)
  if (x == 0)
    what = {@what, "INT"}
  elseif (x == 2)
    what = {@what, "STR"}
  elseif (x == 4)
    what = {@what, "LIST"}
  elseif (x == 9)
    what = {@what, "FLOAT"}
  elseif (x == 1)
    what = {@what, "OBJ"}
  elseif (x == 3)
    what = {@what, "ERR"}
  else
    what = {@what, "???"}
  endif
endfor
return what
.

0