Someone

alias ame { 
  var %x = $comchan($me,0) 
  while (%x) { 
    .ame $1- 
    set %chan $comchan($me,%x) 
    echo $comchan($me,%x) $ts 4* $+($mpnick,$me)  $1- 
    dec %x
  }
}
alias amsg { 
  var %x = $comchan($me,0) 
  while (%x) { 
    .amsg $1- 
    set %chan $comchan($me,%x) 
    echo $comchan($me,%x) $ts $+($in,$mpnick,$me,$out)  $1- 
    dec %x
  }
}