Unnamed

on *:text:!swedish*:#: {
  var %r, %s /\b $+ $2- $+ \b/i
  .fopen dict EngSwe.txt
  .fseek -r dict 
  while ($fread(dict)) {
    msg $chan $v1 %s
    inc %r | if (%r > 5) { msg $chan Max 5 results. Sorry. | break }
    .fseek -r dict %s
  }
  .fclose dict
}