read-num
    square
    half
    @1
    -
b4
16
times #(eval)
300
power-of-10
%