Changed to fully Functional Scripting for most scripts

autoload/assono-backup-nexttape.nu

@@ -37,11 +37,8 @@ def get-week-of-month []: datetime -> int {
  }
 
 def get-month-of-quarter []: datetime -> int {
-  mut month = $in | format date '%m' | into int
-  while ($month > 3) {
-    $month -= 3
-  }
-  $month
+  let month = ($in | format date '%m' | into int) + 3
+  ($month..($month - 3)..1) | last
 }
 
 def get-quarter []: datetime -> int {