content: --PROBLEMA a)
  
  type Punto2D = (Float,Float)
  
  prodInt :: Punto2D -> Punto2D -> Punto2D
  prodInt (x,y) (n,m) = (x*n,y*m)
  
  --PROBLEMA d)
  
  type Coordenada = (Float,Float)
  
  crearPar :: Float -> Float -> Coordenada
  crearPar n m = (n,m)
  
  
  