#!/usr/bin/perl
use strict;
 
my ($one,$two,$three,$four,$five,$six,$seven,$eight,$nine,$ten);
 
$one="x" eq "x";
$two= $one << $one;
$three= $one | $two;
$four= $two << $one;
$five= $four | $one;
$six= $four | $two;
$seven= $four | $two | $one;
$eight= $four << $one;
$nine= $eight | $one;
$ten= $eight | $two;
 
print "$one $two $three $four $five $six $seven $eight $nine $ten\n";