/usr/share/axiom-20140801/input/romnum.as is in axiom-test 20140801-11.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 | #pile
#include "axiom.as"
RomanNumber : IntegerNumberSystem == Integer add
import from NumberFormats
coerce(r:%):OutputForm ==
import from Integer
n := convert(r)@Integer
-- okay, we stretch it
zero? n => n::OutputForm
negative? n => - ((-r)::OutputForm)
import from PositiveInteger
message FormatRoman(n::PositiveInteger)
|