#!/usr/bin/perl

$root = <STDIN>;
$count = 0;
while ($count<=12){
  $count += 1;
  print "$root\n";
  $root = ($root*3)/2;
}
