Welcome to the Emacs shell

~/svns/wisp/var/timm/10/310/src/prolog/4/a $ swipl -f runiv.pl
ERROR: /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl:16:38: Syntax error: Unexpected end of clause
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 3,596 bytes
Welcome to SWI-Prolog (Multi-threaded, 32 bits, Version 5.6.54)
Copyright (c) 1990-2008 University of Amsterdam.
SWI-Prolog comes with ABSOLUTELY NO WARRANTY. This is free software,
and you are welcome to redistribute it under certain conditions.
Please visit http://www.swi-prolog.org for details.

For help, use ?- help(Topic). or ?- apropos(Word).

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 180 bytes
% Scanning references for 2 possibly undefined predicates
Warning: The predicates below are not defined. If these are defined
Warning: at runtime using assert/1, use :- dynamic Name/Arity.
Warning: 
Warning: visit/3, which is referenced by
Warning:         3-th clause of visit2/3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 2 possibly undefined predicates
true.

?- demo(1).
ERROR: visit2/3: Undefined procedure: a/4
   Exception: (13) visit2(a(b(c, d, e, f), [g, h, i]), 0, say) ? a
abort
% Execution Aborted
?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 3 possibly undefined predicates
true.

?- demo(1).
ERROR: tab/1: Type error: `integer' expected, found `a'
   Exception: (14) visit2(say, 0, a) ? a
abort
% Execution Aborted
?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 3 possibly undefined predicates
true.

?- demo(1).
a
    b
    c
    d
    e
    f
    .
    g
        .
        h
            .
            i
            []
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 172 bytes
% Scanning references for 3 possibly undefined predicates
true.

?- demo(1).
functor=a
arity=2
    functor=b
    arity=4
    c
    d
    e
    f
    functor= .
    arity=2
    g
        functor= .
        arity=2
        h
            functor= .
            arity=2
            i
            []
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 16 bytes
% Scanning references for 3 possibly undefined predicates
true.

?-demo(1).
functor=a
arity=2
        functor=b
        arity=4
            c
            d
            e
            f
        functor= .
        arity=2
            g
                functor= .
                arity=2
                    h
                        functor= .
                        arity=2
                            i
                            []
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 36 bytes
% Scanning references for 3 possibly undefined predicates
true.

?- demo(1).
functor=a
arity=2
        functor=b
        arity=4
                functor= +
                arity=2
                    2
                        functor= /
                        arity=2
                            3
                            4
            d
            e
            f
        functor= .
        arity=2
            g
                functor= .
                arity=2
                    h
                        functor= .
                        arity=2
                            i
                            []
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 44 bytes
% Scanning references for 5 possibly undefined predicates
Warning: The predicates below are not defined. If these are defined
Warning: at runtime using assert/1, use :- dynamic Name/Arity.
Warning: 
Warning: visit/3, which is referenced by
Warning:         1-st clause of demo1/1
Warning:         4-th clause of visit1/3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 5 possibly undefined predicates
Warning: The predicates below are not defined. If these are defined
Warning: at runtime using assert/1, use :- dynamic Name/Arity.
Warning: 
Warning: visit/3, which is referenced by
Warning:         1-st clause of demo1/1
Warning:         4-th clause of visit1/3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 12 bytes
% Scanning references for 4 possibly undefined predicates
true.

?- demo(1).
2+3
    [functor= +, arity=2]
        2
        3
true.

?- op(X,fxf,N), N < 1000.
ERROR: op/3: Arguments are not sufficiently instantiated
?-op(X,xfx,N), N < 1000. 
|    
|    
[forced] Action (h for help) ? 
Unknown option (h for help)

[forced] Action (h for help) ? a
abort
ERROR: Execution Aborted
% Execution Aborted
?- current_op(X,xfx,N), N < 1000.
ERROR: </2: Arithmetic: `(is)/0' is not a function
?- current_op(N,xfx,X), N < 1000.
N = 700,
X = (is) ;
;
N = 700,
X = (<) .

?- ;
|    ;
|   make. 
|    
[forced] Action (h for help) ? a
abort
ERROR: Execution Aborted
% Execution Aborted
?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 4 possibly undefined predicates
true.

?- demo(1).
2+3
    [functor= +, arity=2]
        2
        3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 4 possibly undefined predicates
true.

?- demo(1).
2+3
[functor= +, arity=2]
    2
    3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.01 sec, 0 bytes
% Scanning references for 4 possibly undefined predicates
true.

?- demo(1).
2+3
    [functor= +, arity=2]
        2
        3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 48 bytes
% Scanning references for 4 possibly undefined predicates
true.

?- demo(1).
2+3
    [functor= +, arity=2]
        arg=2
        arg=3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 4 possibly undefined predicates
true.

?- make.
% Scanning references for 4 possibly undefined predicates
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 180 bytes
% Scanning references for 5 possibly undefined predicates
true.

?- demo.
2+3
    [functor= +, arity=2]
        arg=2
        arg=3
true ;
;
10-10/3
    [functor= -, arity=2]
        arg=10
            [functor= /, arity=2]
                arg=10
                arg=3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, -44 bytes
% Scanning references for 5 possibly undefined predicates
true.

?- demo.
2+3
    (+)/2
        arg=2
        arg=3
true ;
;
10-10/3
    (-)/2
        arg=10
            / / 2
                arg=10
                arg=3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 5 possibly undefined predicates
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 216 bytes
% Scanning references for 5 possibly undefined predicates
true.

?- demo.
2+3
    (+)/2
        arg=2
        arg=3
true ;
;
10-10*3
    (-)/2
        arg=10
            * / 2
                arg=10
                arg=3
true .

?- ;
|    make.
ERROR: Syntax error: Operator expected
ERROR: ;

ERROR: ** here **
ERROR: make . 
?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, -48 bytes
% Scanning references for 5 possibly undefined predicates
true.

?- demo.
2+3
    (+)/2
        2
        3
true ;
;
10-10*3
    (-)/2
        10
            * / 2
                10
                3
true .

?- ;
|    ;
|    make.
ERROR: Undefined procedure: (;)/0
ERROR:     However, there are definitions for:
ERROR:         ;/2
fail.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 288 bytes
% Scanning references for 6 possibly undefined predicates
true.

?- demos.
2+3
    (+)/2
        2
        3
10-10*3
    (-)/2
        10
            * / 2
                10
                3
emp(tim, 23, male)
    emp/3
        tim
        23
        male
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 8 bytes
% Scanning references for 6 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 240 bytes
% Scanning references for 6 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 104 bytes
% Scanning references for 7 possibly undefined predicates
Warning: The predicates below are not defined. If these are defined
Warning: at runtime using assert/1, use :- dynamic Name/Arity.
Warning: 
Warning: numbervars/2, which is referenced by
Warning:         1-st clause of visit1/3
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 24 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                B
                B
            (,)/2
                    now/1
                        B
                    (is)/2
                            $VAR/1
                                1
                            (-)/2
                                    $VAR/1
                                        1
                                    $VAR/1
                                        1
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, -24 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 128 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 24 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                    $VAR/1
                        1
                    $VAR/1
                        2
            (,)/2
                    now/1
                            $VAR/1
                                3
                    (is)/2
                            $VAR/1
                                2
                            (-)/2
                                    $VAR/1
                                        3
                                    $VAR/1
                                        1
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 96 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                    $VAR/1
                        1
                    $VAR/1
                        2
            (,)/2
                    now/1
                            $VAR/1
                                3
                    (is)/2
                            $VAR/1
                                2
                            (-)/2
                                    $VAR/1
                                        3
                                    $VAR/1
                                        1
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, -228 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233
true.

?- make.
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

emp(tim, 23, male)
    emp/3
        tim
        23
        male

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 116 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

emp(tim, 23, male)
    emp/3
        tim
        23
        male

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233

:-now(_G235), print(_G235)
    (:-)/1
            (,)/2
                    now/1
                        _G235
                    print/1
                        _G235
true.

?- current_op(X,fx,N).
X = 1150,
N = (multifile) ;
;
X = 1150,
N = (module_transparent) .

?- current_op(X,fy,N).
X = 200,
N = \ ;
;
X = 200,
N = - .

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 192 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

emp(tim, 23, male)
    emp/3
        tim
        23
        male

2+3
    (+)/2
        2
        3

10-10*3
    (-)/2
        10
            * / 2
                10
                3

-x
    (-)/1
        x

+y
    (+)/1
        y

age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233

:-now(_G235), print(_G235)
    (:-)/1
            (,)/2
                    now/1
                        _G235
                    print/1
                        _G235
true.

?- make.
ERROR: /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl:34:0: Syntax error: End of file in quoted string
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, -116 bytes
% Scanning references for 8 possibly undefined predicates
Warning: The predicates below are not defined. If these are defined
Warning: at runtime using assert/1, use :- dynamic Name/Arity.
Warning: 
Warning: demo1/1, which is referenced by
Warning:         1-st clause of demo1/0
Warning:         2-nd clause of demo1/0
Warning:         3-th clause of demo1/0
Warning:         4-th clause of demo1/0
Warning:         5-th clause of demo1/0
Warning:         6-th clause of demo1/0
Warning:         7-th clause of demo1/0
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 196 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

-------------
ERROR: format/2: format_character `' does not exist
^  Exception: (12) format('~n-------------~', []) ? a
abort
% Execution Aborted
?- make.
ERROR: /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl:34:0: Syntax error: End of file in quoted string
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, -128 bytes
% Scanning references for 8 possibly undefined predicates
Warning: The predicates below are not defined. If these are defined
Warning: at runtime using assert/1, use :- dynamic Name/Arity.
Warning: 
Warning: demo1/1, which is referenced by
Warning:         1-st clause of demo1/0
Warning:         2-nd clause of demo1/0
Warning:         3-th clause of demo1/0
Warning:         4-th clause of demo1/0
Warning:         5-th clause of demo1/0
Warning:         6-th clause of demo1/0
Warning:         7-th clause of demo1/0
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 176 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

-------------
emp(tim, 23, male)
    emp/3
        tim
        23
        male

-------------
2+3
    (+)/2
        2
        3

-------------
10-10*3
    (-)/2
        10
            * / 2
                10
                3

-------------
-x
    (-)/1
        x

-------------
+y
    (+)/1
        y

-------------
age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233

-------------
:-now(_G235), print(_G235)
    (:-)/1
            (,)/2
                    now/1
                        _G235
                    print/1
                        _G235
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 64 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

-------------------------------
emp(tim, 23, male)
    emp/3
        tim
        23
        male

-------------------------------
2+3
    (+)/2
        2
        3

-------------------------------
10-10*3
    (-)/2
        10
            * / 2
                10
                3

-------------------------------
-x
    (-)/1
        x

-------------------------------
+y
    (+)/1
        y

-------------------------------
age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233

-------------------------------
:-now(_G235), print(_G235)
    (:-)/1
            (,)/2
                    now/1
                        _G235
                    print/1
                        _G235
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 104 bytes
% Scanning references for 7 possibly undefined predicates
true.

?- demos.

-------------------------------
emp(tim, 23, male)
    emp/3
        tim
        23
        male

-------------------------------
[a, b, c]
    . / 2
        a
            . / 2
                b
                    . / 2
                        c
                        []

-------------------------------
2+3
    (+)/2
        2
        3

 -------------------------------
10-10*3
    (-)/2
        10
            * / 2
                10
                3

-------------------------------
-x
    (-)/1
        x

-------------------------------
+y
    (+)/1
        y

-------------------------------
age(_G233, _G234):-now(_G239), _G234 is _G239-_G233
    (:-)/2
            age/2
                _G233
                _G234
            (,)/2
                    now/1
                        _G239
                    (is)/2
                        _G234
                            (-)/2
                                _G239
                                _G233

-------------------------------
:-now(_G235), print(_G235)
    (:-)/1
            (,)/2
                    now/1
                        _G235
                    print/1
                        _G235
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 48 bytes
% Scanning references for 8 possibly undefined predicates
true.

?- demos.

-------------------------------
emp(tim, 23, male)
    emp/3
        tim
        23
        male

-------------------------------
[a, b, c]
    . / 2
        a
            . / 2
                b
                    . / 2
                        c
                        []

-------------------------------
2+3
    (+)/2
        2
        3

-------------------------------
10-10*3
    (-)/2
        10
            * / 2
                10
                3

-------------------------------
-x
    (-)/1
        x

-------------------------------
+y
    (+)/1
        y

-------------------------------
age(_G237, _G238):-now(_G243), _G238 is _G243-_G237
    (:-)/2
            age/2
                _G237
                _G238
            (,)/2
                    now/1
                        _G243
                    (is)/2
                        _G238
                            (-)/2
                                _G243
                                _G237

-------------------------------
:-now(_G239), print(_G239)
    (:-)/1
            (,)/2
                    now/1
                        _G239
                    print/1
                        _G239
true.

?- make.
% /Users/timm/svns/wisp/var/timm/10/310/src/prolog/4/a/runiv.pl compiled 0.00 sec, 0 bytes
% Scanning references for 8 possibly undefined predicates
true.

?- demos.

-------------------------------
emp(tim, 23, male)
    emp/3
        tim
        23
        male

-------------------------------
[a, b, c]
    . / 2
        a
            . / 2
                b
                    . / 2
                        c
                        []

-------------------------------
2+3
    (+)/2
        2
        3

-------------------------------
10-10*3
    (-)/2
        10
            * / 2
                10
                3

-------------------------------
-x
    (-)/1
        x

-------------------------------
+y
    (+)/1
        y

-------------------------------
age(_G237, _G238):-now(_G243), _G238 is _G243-_G237
    (:-)/2
            age/2
                _G237
                _G238
            (,)/2
                    now/1
                        _G243
                    (is)/2
                        _G238
                            (-)/2
                                _G243
                                _G237

-------------------------------
:-now(_G239), print(_G239)
    (:-)/1
            (,)/2
                    now/1
                        _G239
                    print/1
                        _G239
true.

?-