:$<
#include "std/num.wake"
s0(.*):$(div($1,2))
s1(.*):$(add($(mul($1,3)),1))
1:"1"
.*:"$&\n"s$(mod($&,2))$&