b p pos(0) '0' rem . p :f(c)
 q =q 'SK' :(b)
c p pos(0) '1' rem . p :f(d)
 q ='S(K' q ')' :(b)
d output =q
a q ='I'
 p =input :s(b)
end a