type imageFile{};
type tfmFile{};
type messagefile;

(tfmFile output) register(imageFile flo, imageFile ref){
  app {
    RRgt2coasters "--outputtransform" @output @ref @flo;
  }
}

app (messagefile t) greeting(imageFile flo) { 
    echopbscoasters @filename(flo) stdout=@filename(t);
}

app (messagefile t) getpwd() {
   pwdgt2coasters stdout=@filename(t);
}

app (messagefile t) getfileinfo(imageFile f) {
   lsgt2coasters "-la" @f stdout=@filename(t);
}

app (messagefile t) getsumgt2coasters(imageFile f){
    md5sumgt2coasters @f stdout=@filename(t);
}

imageFile refImage<"Data/MRMeningioma0.nrrd">;
imageFile floImage<"Data/MRMeningioma1.nrrd">;

tfmFile transform<"transform.tfm">;
messagefile curDir<"curDir.txt">;
messagefile fileInfo<"fileInfo.txt">;
messagefile refmdsum<"refmdsum.txt">;
messagefile flomdsum<"flomdsum.txt">;

messagefile filenameCheck<"filename.txt">;

curDir = getpwd();
fileInfo = getfileinfo(refImage);
refmdsum = getsumgt2coasters(refImage);
flomdsum = getsumgt2coasters(floImage);
transform = register(refImage,floImage);