8 lines
148 B
Text
8 lines
148 B
Text
( oct
|
|
=
|
|
. !arg:<8
|
|
& (!arg:~<0|ERROR)
|
|
| str$(oct$(div$(!arg.8)) mod$(!arg.8))
|
|
)
|
|
& -1:?n
|
|
& whl'(1+!n:?n&out$(!n oct$!n));
|