metaph Routine
Unit
IB_Utils
Declaration
Function
metaph(a:
string
; lg: integer ):
string
;