(putprop 's '(j p o) 	'neighbors )
		(putprop 'p '(j o s f) 	'neighbors )
		(putprop 'o '(j p s f) 	'neighbors )
		(putprop 'j '(o p s f) 	'neighbors )
		(putprop 'f '(j p o)   	'neighbors )
(putprop 's '(71 132 114)      'dist )
		(putprop 'p '(200 85 132 132)  'dist )
		(putprop 'o '(140 85 114 114)  'dist )
		(putprop 'j '(140 200 71 71)   'dist )
		(putprop 'f '(71 132 114)      'dist )