9 lines
157 B
Text
9 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)
|