#!/usr/bin/perl -w

use strict;

use v5.10;

my $a = 0;

my $b = 1;

while ($b < $ARGV[0]) {

$a += $b;

say $b;

$a ^= $b;

$b ^= $a;

$a ^= $b;

}