10 lines
157 B
Text
10 lines
157 B
Text
|
#!/usr/bin/a68g --script #
|
||
|
|
# -*- coding: utf-8 -*- #
|
||
|
|
|
||
|
|
MODE SCAL = REAL;
|
||
|
|
FORMAT scal fmt := $g(-3,1)$;
|
||
|
|
|
||
|
|
PR READ "prelude/matrix.a68" PR;
|
||
|
|
|
||
|
|
print(REPR IDENT 4)
|