#!/usr/local/bin/perl -w
use strict;

   my($s,$a)=(5*(-2+sqrt 5),.5);sub a{5/(pop)-1}
   sub b{(a(pop)-1)**2+7}sub c{my$s=pop;(a($s)/2
   *(b($s)+sqrt(b( $s )**2-4*a($s)**3)))**(1/5)}
   sub d{my$s=pop;25/((c($s)+a($s)/c($s)+1)**2*$
        s)}sub e{my             ($s,$a,$m)=
        @_;($s**2*$             a)-5**$m*((
        ($s**2-5)/2             )+sqrt$s*($
        s**2-(2*$s)             +5))}my($x,
        $n)= (shift             ||10,0);do{
        $a=e($s,$a,             $n);$s=d($s
        )}while$n++             <$x;print""
        ,(1/$a),$/;