рабочий тест на ConsRefal'e

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
$EXTERN Prout, Card;
Begin {
first next : tail = <Begin next : tail>;
first = first;
= ();
}
$ENTRY Go {
=
<Begin
<Prout 'What is you name?'>
<Hello : <Card>>
>;
}
Hello {
: user_name = (<Prout 'Hello! ' : user_name>);
}