+TO +PLACE ,"
+TO
* +TO ( val [name] -- )

add the val to the named VALUE or LOCALS| value

misc compiling primitive