define(f,`1=2-$1
ifelse(len($1),21,,`f((2-$1))')')f(1)