: int-property ( val name -- )	rot encode-int 2swap property;\ -------------------------------------------------------------\ device-tree\ -------------------------------------------------------------" /" find-device  " device-tree" device-name	" bootrom" device-type\ -------------------------------------------------------------\ /memory\ -------------------------------------------------------------new-device  " memory" device-name	\ 12230 encode-int " reg" property	external	: open true ;	: close ;	\ claim ( phys size align -- base )	\ release ( phys size -- )finish-device\ -------------------------------------------------------------\ /mol/\ -------------------------------------------------------------new-device	" mol" device-name	1 " #address-cells" int-property	0 " #size-cells" int-property	external	: open true ;	: close ;new-device  " test" device-name	external  : open		." /mol/test opened" cr		" argument-str" " ipose" find-package drop interpose		true  ;finish-devicefinish-device\ -------------------------------------------------------------\ /cpus/\ -------------------------------------------------------------new-device	" cpus" device-name	1 " #address-cells" int-property	0 " #size-cells" int-property	external	: open true ;	: close ;	: decode-unit parse-hex ;finish-device\ -------------------------------------------------------------\ /packages\ -------------------------------------------------------------" /packages" find-device	" packages" device-name	external	\ allow packages to be opened with open-dev	: open true ;	: close ;\ /packages/mol-stdoutnew-device	" mol-stdout" device-name	external	: open true ;	: close ;	: write ( addr len -- actual )		dup -rot type	;finish-device\ XXXXXXXXXXXXXXXXXXXXXXX TESTING" /" find-devicenew-device  " test" device-namefinish-device\ -------------------------------------------------------------\ The END\ -------------------------------------------------------------device-end