: install ( -- )
	prog "_l0" " stone cold sober." 0 addprop
	prog "_l1" " slightly tipsy." 0 addprop
	prog "_l2" " moderately tipsy." 0 addprop
	prog "_l3" " very tipsy." 0 addprop
	prog "_l4" " slightly drunk." 0 addprop
	prog "_l5" " somewhat drunk." 0 addprop
 	prog "_l6" " drunk." 0 addprop
	prog "_l7" " very drunk." 0 addprop
	prog "_l8" " roaring drunk." 0 addprop
	prog "_l9" " in a drunken stupor." 0 addprop
	prog "_l10" " drowning in a tidal wave of alcohol." 0 addprop
;
: main ( s -- )
	
;