begin
    declare fichier, md5, chemin
    let fichier = ''
    let md5 = ''
    let chemin = field(@arg, @fm, 2)
    part 1
    invoke file&get(chemin, fichier)
    part 2
    invoke hash&MD5(fichier, md5)
    echonl 'MD5 => ':md5
except
    if @part = 1 then
        echonl 'Cannot open file ':chemin
    endif
end