alias F4 {
  var %a = 1
  while ($snick(#,%a)) {
    kick # $snick(#,%a)
    inc %a = 1
  }
}