open Ġclass ĠK Base Ġ{ ĊĠĠĠ Ġopen Ġvar Ġname Ġ= Ġ"" Ċ } Ċ Ċ class ĠK A : ĠK Base () Ġ{ ĊĠĠĠ Ġoverride Ġvar Ġ< caret > name Ġ= Ġ" A " ĊĠĠĠ Ġfun Ġfoo ( s : ĠString ): ĠString Ġ= Ġ" A : Ġ$ s " Ċ } Ċ Ċ fun Ġpackage Fun ( s : ĠString ): ĠString Ġ= ĠK Base (). name Ġ+ ĠK A (). name Ċ Ċ val Ġpackage Val Ġ= ĠK Base (). name Ġ+ ĠK A (). name Ċ Ċ class ĠK Client Ġ{ ĊĠĠĠ Ġ{ ĊĠĠĠĠĠĠĠ ĠK Base (). name Ġ= Ġ"" ĊĠĠĠĠĠĠĠ ĠK A (). name Ġ= Ġ"" ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġcompanion Ġobject Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġa Ġ= ĠK Base (). name Ġ+ ĠK A (). name ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġvar Ġbar : ĠString ĊĠĠĠĠĠĠĠ Ġget () Ġ= ĠK Base (). name Ġ+ ĠK A (). name ĊĠĠĠĠĠĠĠ Ġset ( value : ĠString ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠK Base (). name Ġ= Ġvalue ĊĠĠĠĠĠĠĠĠĠĠĠ ĠK A (). name Ġ= Ġvalue ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġbar () Ġ{ ĊĠĠĠĠĠĠĠ Ġfun Ġlocal Fun () Ġ= ĠK Base (). name Ġ+ ĠK A (). name ĊĊĠĠĠĠĠĠĠ Ġval Ġs Ġ= ĠK Base (). name Ġ+ ĠK A (). name ĊĠĠĠ Ġ} Ċ } Ċ Ċ object ĠK Client Obj Ġ{ ĊĠĠĠ Ġval Ġa Ġ= ĠK Base (). name Ġ+ ĠK A (). name ĊĠĠĠ Ġ{ ĊĠĠĠĠĠĠĠ ĠK Base (). name Ġ= Ġ"" ĊĠĠĠĠĠĠĠ ĠK A (). name Ġ= Ġ"" ĊĠĠĠ Ġ} Ċ }