blob: a49ba6a1947f9edc2d33f443441dbaf1f2ab4ef2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
% This is not a real program, only to test if tangle works.
@* Introduction.
This is just a test.
@p program CF_test;
type @<Types in the outer block@>
@ @<Types...@>=
@!seven_bits=0..127; {seven-bit numbers, a subrange of the integers}
@* Main program.
@p begin write_ln('This is CFtest');
end.
|