gato::  Integer->Integer
gato n |n==0 =0
           |n==1 =1
           |otherwise = (-3)*gato(n-1)-2*gato(n-2)+3^n
   

pat::  Double->Double
pat n  |n==0 =0
          |n==1 =1
          |otherwise = pat(n-1)+ 2*pat(n-2)+ n
  
pato::  Integer->Double
pato n |n==0 =0
            |n==1 =1
            |otherwise = (3/5)*pato(n-1) + pato (n-2)