([rec'x'(case(read)['o(print x)x]['i(+ x 1)]['d(max(- x 1)0)]['s(*(if(= x 16)0 x)x)]['h(exit)])]0)