sub fract {
        %_=(%_,$_[0],$%);
        ~~%_
    }