sub g{
    open(F,'<',$_[1])&&&s($_[0],$a,"e$_[1]",<F>);
    close F
}