$ perl6 -e 'my $a = 0.7777777777777777777770; my $b = 0.7777777777777777777771; say $a <=> $b; say Num($a) <=> Num($b)' Less More