#/bin/tcsh 
if ( $argv == 0 ) then 
   ls –la 
else 
   if ( $argv == 1 ) then 
      switch ($1) 
         case ‘-c’ : 
            set fic = `ls .[a-z]*` 
            foreach f ($fic) 
                if ( -f $f ) ls –l $f 
            end 
         breaksw 
         case ‘-f’ : 
            set fic = `ls` 
            foreach f ($fic) 
                if ( -f $f ) ls –l $f 
            end 
         breaksw 
         case ‘-d’ : 
            set fic = `ls -a` 
            foreach f ($fic) 
                if ( -f $f ) ls –l $f 
            end 
         breaksw 
     endsw 
  endif 
endif