PRO stemplot,x,y,_EXTRA=extra

IF N_PARAMS() EQ 1 THEN BEGIN
    n=n_elements(x)
	plot,x,_extra=extra,psym=4
    FOR k=0,n-1 do oplot,[k,k,k],[0,x[k],0]
    oplot,[0,2*n],[0,0]

	ENDIF ELSE BEGIN
    n=n_elements(y)
	plot,x,y,_extra=extra,psym=4
    FOR k=0,n-1 do oplot,[x[k],x[k],x[k]],[0,y[k],0]
    oplot,[x[0],x[n-1]],[0,0]
	ENDELSE

END