p1=.Konto~new("Sparkonto", "Erste Bank","10000")
p2=.konto~new("Girokonto","easybank", "35000")
say p1~Kontoart p1~Bankname p1~Kontostand p2~Kontoart
say p1~Kontoart p1~Kontostand p1~~increasekontostand(20000) ~Kontostand
::Class Konto
::Method Init
Expose Kontoart Bankname Kontostand
USE ARG Kontoart, Bankname, Kontostand
::Method increaseKontostand
Expose Kontostand
Use Arg increase
Kontostand=Kontostand+increase
::attribute Kontoart
::attribute Bankname
::attribute Kontostand


___________________________________________________________________



tmpColl=.array~new
tmpColl[1,6]="a"
TmpColl~"[]="("b",4,4)
tmpColl~~put("d",2,3)~~put("c",2,1)

say tmpColl~string":"
Do i over tmpColl
Say "["i"]"
End

__________oder alternativ:__________

tmpColl=.array~new
tmpColl[1,6]="a"
TmpColl~"[]="("b",4,4)
tmpColl~~put("d",2,3)~~put("c",2,1)
i=tmpColl

say tmpColl~string":"
Say i