sub f{$d=0;$d+=99225/$a[$_]/$a[$_+1]for 0.."@_"-2;$d}<>=~$";@a=glob<>;use bigrat;print$'<$`?1*(f$')/f$`:'1/1'