FUNCTION comprimeImagen(filedestino,tamano)

    DEFINE filedestino, comando,tamano STRING
      
    LET comando = 'magick convert ',filedestino,tamano,filedestino
    RUN comando
END FUNCTION