package ĠLo ops Ċ Ċ fun Ġmain ( args Ġ: ĠArray < String >) Ġ{ ĊĠĠĠ Ġvar Ġpres idents Ġ= ĠarrayOf (" j fk ", Ġ" nix on ", Ġ" car ter ") ĊĊĠĠĠ Ġprint (" I Ġlove Ġthese Ġpres idents Ġ") ĊĠĠĠ Ġfor Ġ( p Ġin Ġpres idents ) Ġ{ ĊĠĠĠĠĠĠĠ Ġprint Ġ(" $ p , Ġ") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprintln ("") ĊĠĠĠ Ġprint (" I Ġv oted Ġfor Ġthese Ġpres idents Ġ") ĊĠĠĠ Ġfor Ġ( p Ġin Ġpres idents . indices ) Ġ{ ĊĠĠĠĠĠĠĠ Ġprint Ġ(" ${ pres idents [ p ]}, Ġ") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprintln ("") ĊĠĠĠ Ġprint (" I Ġlo ath Ġthese Ġpres idents Ġ") ĊĠĠĠ Ġvar Ġi Ġ= Ġpres idents . size ĊĠĠĠ Ġwhile Ġ( i Ġ> Ġ 0 ) Ġ{ ĊĠĠĠĠĠĠĠ Ġi -- ĊĠĠĠĠĠĠĠ Ġprint ("${ pres idents [ i ]}, Ġ") ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprintln ("") ĊĠĠĠ Ġprint (" I Ġpuzzle Ġthese Ġpres idents Ġ") ĊĠĠĠ Ġvar Ġq Ġ= Ġpres idents . size ĊĠĠĠ Ġdo Ġ{ ĊĠĠĠĠĠĠĠ Ġq -- ĊĠĠĠĠĠĠĠ Ġprint ("${ pres idents [ q ]}, Ġ") ĊĠĠĠ Ġ} while ( q Ġ> Ġ 0 ) Ċ } Ċ