/set hello "world"
/set answer 42
/set ary (/array "wizard" 7)

if(it == (/null))
    /set it 0
endif

/print (/var_count) " variables detected, printing:\n"

while(it < (/var_count))
    /print (/var_name it) ": "
    if((/var_type (/var_dump it)) == "string")
        /print "\"" (/var_dump it) "\"\n"
    else
        /print (/var_dump it) "\n"
    endif
    /set it it+1
endwhile
/exit