#include 

/* sets x left of window */
setxl(w, xl)
{
        if (argc < 2)
        {
                if (argc < 1)
                {
                        w = refwindow(W0);
                }
                if (not(iswindow(w)))
                {
                        xl = w;
                        w  = refwindow(W0);
                }
                else
                {
                        xl = getxl(w);
                }
        }
        
        xl = castreal(xl);

        setx(w, xl, getxr(w));
}