pl := PhoneLog clone
pl recent
"\n" print
"count: " print 
pl count print
"\n" print
pl first
for(n,1,pl count,
  n print
  ". " print
  pl event description print
  "," print
  pl event direction print
  "," print
  pl event number print
  "," print
  pl event remoteParty print
  "\n" print
  pl next)