$y=10-7;
system "./extsub\n";