FUNCTION Main()
   LOCAL c
   c := ""
   ? "Empty string <= 1:", c <= 1
   c := "X"
   ? "X <= 1:", c <= 1
   c := "AB"
   ? "AB <= 1:", c <= 1
   ? "DONE"
RETURN NIL