((rec,c,(max(case(read)('i(+ c 1))('d(- c 1))('s(*(if(= c 16)0 c)c))('o(print c)c))0))0)