
PARM = {{0}}

step_graph ( PARM ) =
	( sort (PARM [ $0*2+1 , $1 , $3 ]
		    append
		PARM [ $0*2+1 , $2 , $3 ] )
	by $1 ) [ $2 , $3 ]

bar_graph ( PARM ) =
	( sort (PARM [ $0*4+1 , $1 , 0 ]
		    append
		PARM [ $0*4+2 , $1 , $3 ]
		    append
		PARM [ $0*4+3 , $2 , $3 ]
		    append
		PARM [ $0*4+4 , $2 , 0 ] )
	by $1 ) [ $2 , $3 ]

