eval(parse(text=sub('\\[',"write(-",sub("]",",1)",sub(",.*,","+",readLines("stdin"))))))