$ perl -we'use Math::BigRat; $onesixth = Math::BigRat->new("1/6");
> print "equal" if $onesixth+$onesixth+$onesixth+$onesixth+$onesixth+
>                  $onesixth == 1'
equal