prependNewTag :: FilePath -> FilePath -> FilePath
prependNewTag orig newNum = newNum ++ ( dropWhile (/='.') orig )
prependNewTag :: FilePath -> FilePath -> FilePath
prependNewTag orig newNum = newNum ++ ( dropWhile (/='.') orig )
prependNewTag orig newNum = newNum ++ ( dropWhile (/='.') orig )