#!/usr/bin/perl
use strict;
use warnings;

# 816487

my $n = 3.123;
my $u = 3.678;
my $i= 0;
my (@array, $array);

for (1..10) {
	$n -= ($n * $u) * $u;
	$array[$i] = int(abs($n));
	$i++
}

for (@array) {
	print "$_ \n";
}

##</code><code>##

39
490
6140
76922
963664
12072486
151240294
1894690621
23736085384
297358177092

##</code><code>##

46
702
10540
158101
2371528
35572921
533593828
8003907421
120058611328
1800879169921