#!/usr/bin/perl

$a=0;$b=1;while($b<$ARGV[0]){($a,$b)=($b,$a+$b);print"$a\n"}