9 lines
135 B
Bash
9 lines
135 B
Bash
|
#!/bin/sh
|
||
|
|
. ./for.sh
|
||
|
|
|
||
|
|
# _debug=y
|
||
|
|
|
||
|
|
: pow dup 1 gt if 1 sub over swap pow mul then dup 1 gt not if drop then ; # b e -- x
|
||
|
|
|
||
|
|
] 2 8 pow put
|