#!/usr/bin/a68g --script # # -*- coding: utf-8 -*- # PR READ "prelude/vector_base.a68" PR; PR READ "prelude/matrix_base.a68" PR; PR READ "prelude/matrix_ident.a68" PR; SKIP