    % Writing one line at 50,700
    50 700 (Table of) Wrt
    % without coord. writes on the next line(s)
    (matching) Wrt
    % append other lines to the current paragraph...
    (Roman) (and Greek) (characters) Wrt
    % This can also be achieved in a single Wrt with
    % a pair of coordinates and one or several strings
    200 700
    (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13)
    Wrt
    % now let's print a nice blue table of greek letters
    Blue
    /xo 270 def
    /yo 700 def
    xo yo
    (a `a) (b `b) (c `c) (d `d) (e `e) (f `f)
    (g `g) (h `h) (i `i) (j `j) (k `k) (l `l) (m `m) Wrt
    /xo xo 60 add def
    xo yo
    (n `n) (o `o) (p `p) (q `q) (r `r) (s `s)
    (t `t) (u `u) (v `v) (w `w) (x `x) (y `y) (z `z) Wrt
    /xo xo 60 add def
    xo yo
    (A `A) (B `B) (C `C) (D `D) (E `E) (F `F)
    (G `G) (H `H) (I `I) (J `J) (K `K) (L `L) (M `M) Wrt
    /xo xo 60 add def
    xo yo
    (N `N) (O `O) (P `P) (Q `Q) (R `R) (S `S)
    (T `T) (U `U) (V `V) (W `W) (X `X) (Y `Y) (Z `Z) Wrt
    %
    /p1 {68 126} def  % defining coord. of a point p1
    /p2 {170 287} def % and p2
    /p3 {270 160} def % and yet a third point
    %
    [ p1 p2 p3 ] Green Polygone
    Violet
    % NOTE points p1 must be different from p2 otherwise slope is undefined
    [ p1 p2 ] ( <- p_1  p_2 -> ) Wrt
      p1 p3   ( <- p_1  p_3 -> ) Wrt % this variant is also accepted
    % yet I prefer [] () Wrt for consistency with Plot functions
    [ p2 p3 ] ( <- p_2  p_3 -> ) Wrt
    [ p3 p2 ] ( <- p_3  p_2 -> ) Wrt