beginfig(1);
    pair p[];
    p1=(0,100);
    p2=(50, 0);
    p3=(100,100);

    pair pp[];
    pp := p shifted (25, 0);

    show p[1];
    show pp[1];

    draw p[1] -- pp[1];
endfig;