#!/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