;Svensk $duration av Firetech

alias swedur {
  var %d = $iif($2 == 2,$duration($1-,2),$duration($1-))
  var %x = $replace(%d,wks,§veckor,wk,§vecka,days,§dagar,day,§dag,hrs,§timmar,hr,§timme,mins,§miner,min,§minut,secs,§sekunder,sec,§sekund))
  if ($prop == nokomma) {
    return %x
  }
  else {
    return $kommaoch(%x)
  }
}

alias kommaoch {
  var %i = $numtok($$1-,32),%j = 2,%t = $gettok($$1-,1,32)
  while (%j <= %i) {
    if (%j < %i) {
      %t = %t $+ , $gettok($$1-,%j,32)
    }
    elseif (%j == %i) {
      %t = %t och $gettok($$1-,%j,32)
    }
    inc %j
  }
  return $replace(%t,§,$chr(32))
}