#!/usr/bin/perl -w

  ;;;;;                                    ;;;;;
 ;;;;;;;;;                            ;;;;;;;;;;;;
use strict;                       fib($ARGV[0]||42);
sub fib { my                       @fibs=(1,1,0);;
for(my $n=2;$n                     <$_[0];$n++) { 
$fibs[$n]=$fibs                     [$n-1]+$fibs
 [$n-2]; }my                         $sequence
   =@fibs;                             print 

          "{";               for(my 

                $x=0; $x<=
                $sequence;
                  $x++) 

{ if($x      ==$sequence)        { print
  ". . .}";   }else  { print $fibs[$x];
     print ",";}         }print "\n";}
               ;    ;    ;
               ;    ;    ;
               ;;;;;;;;;;;