Did you know ... Search Documentation:
Predicate common_prefix/3
 common_prefix(+A1, +A2, -Prefix:string) is det[private]
True when Prefix is the common prefix of the atoms A1 and A2