sub fconv {
    my $f = shift;
    if ($$f =~ m!([\-\+]*)\s*(?:(\d+)\s+)?(\d+)\s*/\s*(\d+)!) {
        $$f = $2 + $3/$4;
        $$f = -$$f if $1 eq '-';
    }
}