(do['#/(1?.)(.*)/(n(read-line)#`",(-(x->number('n 1))1),('n 2)")]((#/-/n))(print n))