metaph Routine

Unit
IB_Utils

Declaration
Function metaph(a: string; lg: integer ): string;