% 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