RosettaCodeData/Task/Find-common-directory-path/Ursala/find-common-directory-path-1.ursala

#import std

comdir"s" "p" = mat"s" reduce(gcp,0) (map sep "s") "p"