(use file.util)(port-map(^s(print(#0=regexp-replace-all*(simplify-path(#0#s" ""/"))"/"" "" $""""^$"".")))read-line)