# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #69182]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=69182 >
This be Rakudo b29506, under Parrot r41289.
$ perl6 -e 'my $d = 2; my $p = 1; while 1 { say $p *= ($d-1)/($d); $d *= 2 }'
0.5
0.375
0.328125
0.3076171875
0.298004150390625
0.293347835540771
0.291056055575609
too many arguments passed (3) - 1 param expected
in sub infix:* (src/gen_setting.pm:1046)
Note that if the multiplication makes it through the first few
multiplication, there's no reason it shouldn't be able to keep going.
Something's wrong somewhere in them thar internals, it seems.
