s[$SOURCE/$SAMS/][]g;
s[$SOURCE/$SAMLIB/][]g;
s[$SOURCE/$SMCLIB/][$SOURCE/$KENO/]g;
if (not m[^$SOURCE/]) {
    s[$SOURCE/][$$OBJECT/]g;
    print $_;
}