$a=sqrt 5;print+(((1+$a)/2)**$_-((1-$a)/2)**$_)/$a,$/for 0..73

# For comparison, here is the result of the golfing
# that Tilly and I participated in earlier:
$a=1;print$a-=$b+=$a*=-1,$/for 0..73