mode(0);
getf('f.sci'),save('f.bin'),clear ;
getf('g.sci'),save('g.bin'),clear ;
exit;
