Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Box-the-compass/00-META.yaml
+++ b/Task/Box-the-compass/00-META.yaml
@ -0,0 +1,2 @@
+---
+from: http://rosettacode.org/wiki/Box_the_compass
--- a/Task/Box-the-compass/00-TASK.txt
+++ b/Task/Box-the-compass/00-TASK.txt
@ -0,0 +1,23 @@
+Avast me hearties!
+
+There be many a [http://talklikeapirate.com/wordpress/how-to/ land lubber] that knows [https://dictionary.cambridge.org/dictionary/english/naught naught] of the pirate ways and gives direction by degree!
+They know not how to [[wp:Boxing the compass|box the compass]]! 
+
+
+;Task description:
+# Create a function that takes a heading in degrees and returns the correct 32-point compass heading.
+# Use the function to print and display a table of Index, Compass point, and Degree; rather like the corresponding columns from, the first table of the [[wp:Boxing the compass|wikipedia article]], but use only the following 33 headings as input:
+:<code>[0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]</code>. (They should give the same order of points but are spread throughout the ranges of acceptance).
+
+
+;Notes;
+* The headings and indices can be calculated from this pseudocode:
+<pre>for i in 0..32 inclusive:
+    heading = i * 11.25
+    case i %3:
+      if 1: heading += 5.62; break
+      if 2: heading -= 5.62; break
+    end
+    index = ( i mod 32) + 1</pre>
+* The column of indices can be thought of as an enumeration of the thirty two cardinal points (see [[Talk:Box the compass#Direction, index, and angle|talk page]])..
+<br><br>
--- a/Task/Box-the-compass/11l/box-the-compass.11l
+++ b/Task/Box-the-compass/11l/box-the-compass.11l
@ -0,0 +1,28 @@
+V majors = ‘north east south west’.split(‘ ’)
+majors *= 2
+V quarter1 = ‘N,N by E,N-NE,NE by N,NE,NE by E,E-NE,E by N’.split(‘,’)
+V quarter2 = quarter1.map(p -> p.replace(‘NE’, ‘EN’))
+
+F degrees2compasspoint(=d)
+   d = (d % 360) + 360 / 64
+   V majorindex = Int(d / 90)
+   V minorindex = Int((d % 90 * 4) I/ 45)
+   V p1 = :majors[majorindex]
+   V p2 = :majors[majorindex + 1]
+   [String] q
+   I p1 C (‘north’, ‘south’)
+      q = :quarter1
+   E
+      q = :quarter2
+   R q[minorindex].replace(‘N’, p1).replace(‘E’, p2).capitalize()
+
+:start:
+L(i) 33
+   V d = i * 11.25
+   S i % 3
+      1
+         d += 5.62
+      2
+         d -= 5.62
+   V n = i % 32 + 1
+   print(‘#2.0 #<18 #4.2°’.format(n, degrees2compasspoint(d), d))
--- a/Task/Box-the-compass/ALGOL-68/box-the-compass.alg
+++ b/Task/Box-the-compass/ALGOL-68/box-the-compass.alg
@ -0,0 +1,96 @@
+#!/usr/local/bin/a68g --script #
+
+[]STRING
+  long  by nesw = (" by ", "North", "East", "South", "West"),
+  short by nesw = ("b", "N", "E", "S", "W");
+
+MODE MINUTES = REAL; # minutes type #
+INT last minute=360*60;
+INT point width=last minute OVER 32;
+
+PROC direction name = (REAL direction in minutes, []STRING locale directions)STRING: (
+
+  STRING by = locale directions[1];
+  []STRING nesw = locale directions[@-1];
+
+  PRIO MASK = 7; # same PRIOrity as * and / #
+  OP MASK = (INT n, BITS lower)INT: ABS (BIN n AND NOT lower),
+     DECAP = (STRING s)STRING: IF UPB s > 1 THEN REPR (ABS s[1]-ABS "A"+ABS "a")+s[2:] ELSE s FI;
+
+  PROC point name = (INT in point)STRING: (
+
+    INT point = in point MOD 32 # 32 points of a compass #;
+    IF point MOD 8 = 0 THEN
+# name the principle point: eg. N, E, S or W #
+      nesw[point OVER 8]
+
+    ELIF point MOD 4 = 0 THEN
+# name the half: eg. NE, SE, SW or NW #
+      point name((point+8)MASK 2r1111)+DECAP point name(point MASK 2r1111 + 8)
+
+    ELIF point MOD 2 = 0 THEN
+# name the quarter: eg. N-NE, E-NE, E-SE, S-SE, S-SW, W-SW, W-NW or N-NW #
+      point name((point+4)MASK 2r111)+"-"+point name(point MASK 2r111 + 4)
+
+    ELSE # Name the sixteenth point: #
+# eg. NbE,NEbN,NEbE,EbN,EbS,SEbE,SEbS,SbE,SbW,SWbS,SWbW,WbS,WbN,NWbW,NWbN,NbW #
+      INT opp point = point OVER 8 + ABS NOT ODD (point OVER 2);
+      point name((point+2)MASK 2r11)+ by +nesw(opp point MOD 4)
+    FI
+  );
+  point name(ROUND(direction in minutes/point width))
+);
+
+PROC traditional name = (MINUTES minutes)STRING: (
+  INT degrees = ROUND(minutes / 60);
+  degrees=0  |"Tramontana"          |:
+  degrees=45 |"Greco or Bora"       |:
+  degrees=90 |"Levante"             |:
+  degrees=135|"Sirocco"             |:
+  degrees=180|"Ostro"               |:
+  degrees=225|"Libeccio"            |:
+  degrees=270|"Poniente or Zephyrus"|:
+  degrees=315|"Mistral"             |:
+  degrees=360|"Tramontana"          |""
+);
+
+# First generate the test set results #
+test:(
+  printf($"Test:"l$);
+  FOR i FROM 0 TO 32 DO
+    REAL heading = i * 11.25 +
+      CASE i MOD 3 IN
+        +5.62,
+        -5.62
+        OUT 0
+      ESAC;
+    INT index = ( i MOD 32) + 1;
+    printf(($zd" ", g23k, zzd.zzl$, index , direction name(heading*60, long by nesw), heading))
+  OD
+);
+
+table:(
+  OP OVER = (REAL r, INT base)INT: ENTIER ABS r OVER  base,
+     MOD = (REAL r, INT base)REAL: ( INT i = ENTIER r; i MOD base + r - i);
+
+  printf(
+    $l"Table:"l
+    " #|Compass point"22k"|Abbr|Traditional wind point| Lowest°′ | Middle°′ | Highest°′"l$
+  );
+
+  OP DEGMIN = (REAL minutes)STRUCT(INT d, REAL m): (minutes MOD last minute OVER 60, minutes MOD 60);
+
+  FOR point FROM 1 TO 32 DO
+    REAL centre = (point-1) * point width;
+    REAL from =  centre - point width/2,
+         to   =  centre + point width/2-1/120;
+    printf((
+            $g(-2)"|"$, point,
+            $g$, direction name(centre, long by nesw),
+            $22k"|"g$, direction name(centre, short by nesw),
+            $27k"|"g$, traditional name(centre),
+            $50k$, $"|"g(-3)"°", dd.dd"′"$, DEGMIN from, DEGMIN centre, DEGMIN to,
+            $l$
+          ))
+  OD
+)
--- a/Task/Box-the-compass/AWK/box-the-compass.awk
+++ b/Task/Box-the-compass/AWK/box-the-compass.awk
@ -0,0 +1,18 @@
+#!/usr/bin/awk -f
+BEGIN {
+  split("N NbE NNE NEbN NE NEbE ENE EbN E EbS ESE SEbE SE SEbS SSE SbE S SbW SSW SWbS SW SWbW WSW WbS W WbN WNW NWbW NW NWbN NNW NbW",A," ");
+}
+
+function ceil(x) {
+	y = int(x)
+	return y < x ? y + 1 : y
+}
+
+function compassbox(d) {
+    return ceil( ( (d + 360 / 64) % 360) * 32 / 360);
+}
+
+{
+    box = compassbox($1);
+    printf "%6.2f : %2d\t%s\n",$1,box,A[box];
+}
--- a/Task/Box-the-compass/Action-/box-the-compass.action
+++ b/Task/Box-the-compass/Action-/box-the-compass.action
@ -0,0 +1,106 @@
+INCLUDE "D2:PRINTF.ACT" ;from the Action! Tool Kit
+INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit
+
+DEFINE PTR="CARD"
+
+PROC InitNames(PTR ARRAY names)
+  names(0)="N"    names(1)="NbE"
+  names(2)="NNE"  names(3)="NEbN"
+  names(4)="NE"   names(5)="NEbE"
+  names(6)="ENE"  names(7)="EbN"
+  names(8)="E"    names(9)="EbS"
+  names(10)="ESE" names(11)="SEbE"
+  names(12)="SE"  names(13)="SEbS"
+  names(14)="SSE" names(15)="SbE"
+  names(16)="S"   names(17)="SbW"
+  names(18)="SSW" names(19)="SWbS"
+  names(20)="SW"  names(21)="SWbW"
+  names(22)="WSW" names(23)="WbS"
+  names(24)="W"   names(25)="WbN"
+  names(26)="WNW" names(27)="NWbW"
+  names(28)="NW"  names(29)="NWbN"
+  names(30)="NNW" names(31)="NbW"
+  names(32)="N"
+RETURN
+
+PROC PrintIndex(BYTE i)
+  CHAR ARRAY s(5)
+
+  StrB(i,s)
+  PrintF("%2S",s)
+RETURN
+
+BYTE FUNC FindDot(CHAR ARRAY s)
+  BYTE i
+
+  FOR i=1 TO s(0)
+  DO
+    IF s(i)='. THEN
+      RETURN (i)
+    FI
+  OD
+RETURN (0)
+
+PROC PrintAngle(REAL POINTER a)
+  CHAR ARRAY s(10)
+  BYTE pos
+
+  StrR(a,s)
+  pos=FindDot(s)
+  IF pos=0 THEN
+    s(0)==+3
+    s(s(0)-2)='.
+    s(s(0)-1)='0
+    s(s(0)-0)='0
+  ELSEIF pos=s(0)-1 THEN
+    s(0)==+1
+    s(s(0)-0)='0
+  FI
+  PrintF("%6S",s)
+RETURN
+
+INT FUNC GetIndex(REAL POINTER a)
+  REAL r32,r360,r1,r2
+
+  IntToReal(32,r32)
+  IntToReal(360,r360)
+  RealMult(a,r32,r1)
+  RealDiv(r1,r360,r2)
+RETURN (RealToInt(r2))
+
+PROC Main()
+  DEFINE COUNT="33"
+  PTR ARRAY names(COUNT)
+  INT i,m,ind,x,y
+  REAL ri,r11_25,r5_62,rh,r1
+
+  Put(125) PutE() ;clear the screen
+  InitNames(names)
+  ValR("11.25",r11_25)
+  ValR("5.62",r5_62)
+  FOR i=0 TO 32
+  DO
+    IntToReal(i,ri)
+    RealMult(ri,r11_25,rh)
+    m=i MOD 3
+    IF m=1 THEN
+      RealAdd(rh,r5_62,r1)
+      RealAssign(r1,rh)
+    ELSEIF m=2 THEN
+      RealSub(rh,r5_62,r1)
+      RealAssign(r1,rh)
+    FI
+    ind=GetIndex(rh)
+
+    IF i<16 THEN
+      x=2 y=i+1
+    ELSE
+      x=20 y=i-15
+    FI
+    Position(x,y) PrintIndex(ind MOD (COUNT-1)+1)
+    x==+3
+    Position(x,y) Print(names(ind))
+    x==+5
+    Position(x,y) PrintAngle(rh)
+  OD
+RETURN
--- a/Task/Box-the-compass/Ada/box-the-compass.ada
+++ b/Task/Box-the-compass/Ada/box-the-compass.ada
@ -0,0 +1,66 @@
+with Ada.Text_IO;
+
+procedure Box_The_Compass is
+
+   type Degrees is digits 5 range 0.00 .. 359.99;
+   type Index_Type is mod 32;
+
+   function Long_Name(Short: String) return String is
+
+      function Char_To_Name(Char: Character) return String is
+      begin
+         case Char is
+            when 'N' | 'n' => return Char & "orth";
+            when 'S' | 's' => return Char & "outh";
+            when 'E' | 'e' => return Char & "ast";
+            when 'W' | 'w' => return Char & "est";
+            when 'b' => return " by ";
+            when '-' => return "-";
+            when others => raise Constraint_Error;
+         end case;
+      end Char_To_Name;
+
+   begin
+      if Short'Length = 0 or else Short(Short'First)=' ' then
+         return "";
+      else
+         return Char_To_Name(Short(Short'First))
+           & Long_Name(Short(Short'First+1 .. Short'Last));
+      end if;
+   end Long_Name;
+
+   procedure Put_Line(Angle: Degrees) is
+
+      function Index(D: Degrees) return Index_Type is
+      begin
+         return Index_Type(Integer(Degrees'Rounding(D/11.25)) mod 32);
+      end Index;
+
+      I: Integer := Integer(Index(Angle))+1;
+      package DIO is new Ada.Text_IO.Float_IO(Degrees);
+      Abbr: constant array(Index_Type) of String(1 .. 4)
+        := ("N   ", "Nbe ", "N-ne", "Nebn", "Ne  ", "Nebe", "E-ne", "Ebn ",
+            "E   ", "Ebs ", "E-se", "Sebe", "Se  ", "Sebs", "S-se", "Sbe ",
+            "S   ", "Sbw ", "S-sw", "Swbs", "Sw  ", "Swbw", "W-sw", "Wbs ",
+            "W   ", "Wbn ", "W-nw", "Nwbw", "Nw  ", "Nwbn", "N-nw", "Nbw ");
+
+   begin
+      DIO.Put(Angle, Fore => 3, Aft => 2, Exp => 0); -- format "zzx.xx"
+      Ada.Text_IO.Put(" |");
+      if I <= 9 then
+         Ada.Text_IO.Put(" ");
+      end if;
+      Ada.Text_IO.Put_Line(" "  & Integer'Image(I) & " | "
+                             & Long_Name(Abbr(Index(Angle))));
+   end Put_Line;
+
+   Difference: constant array(0..2) of Degrees'Base
+     := (0=> 0.0, 1=> +5.62, 2=> - 5.62);
+
+begin
+   Ada.Text_IO.Put_Line(" angle | box | compass point");
+   Ada.Text_IO.Put_Line(" ---------------------------------");
+   for I in 0 .. 32 loop
+      Put_Line(Degrees(Degrees'Base(I) * 11.25 + Difference(I mod 3)));
+   end loop;
+end Box_The_Compass;
--- a/Task/Box-the-compass/AppleScript/box-the-compass-1.applescript
+++ b/Task/Box-the-compass/AppleScript/box-the-compass-1.applescript
@ -0,0 +1,393 @@
+use framework "Foundation"
+use scripting additions
+
+-- BOXING THE COMPASS --------------------------------------------------------
+
+property plstLangs : [{|name|:"English"} & ¬
+    {expansions:{N:"north", S:"south", E:"east", W:"west", b:" by "}} & ¬
+    {|N|:"N", |NNNE|:"NbE", |NNE|:"N-NE", |NNENE|:"NEbN", |NE|:"NE", |NENEE|:"NEbE"} & ¬
+    {|NEE|:"E-NE", |NEEE|:"EbN", |E|:"E", |EEES|:"EbS", |EES|:"E-SE", |EESES|:"SEbE"} & ¬
+    {|ES|:"SE", |ESESS|:"SEbS", |ESS|:"S-SE", |ESSS|:"SbE", |S|:"S", |SSSW|:"SbW"} & ¬
+    {|SSW|:"S-SW", |SSWSW|:"SWbS", |SW|:"SW", |SWSWW|:"SWbW", |SWW|:"W-SW"} & ¬
+    {|SWWW|:"WbS", |W|:"W", |WWWN|:"WbN", |WWN|:"W-NW", |WWNWN|:"NWbW"} & ¬
+    {|WN|:"NW", |WNWNN|:"NWbN", |WNN|:"N-NW", |WNNN|:"NbW"}, ¬
+    ¬
+        {|name|:"Chinese", |N|:"北", |NNNE|:"北微东", |NNE|:"东北偏北"} & ¬
+    {|NNENE|:"东北微北", |NE|:"东北", |NENEE|:"东北微东", |NEE|:"东北偏东"} & ¬
+    {|NEEE|:"东微北", |E|:"东", |EEES|:"东微南", |EES|:"东南偏东", |EESES|:"东南微东"} & ¬
+    {|ES|:"东南", |ESESS|:"东南微南", |ESS|:"东南偏南", |ESSS|:"南微东", |S|:"南"} & ¬
+    {|SSSW|:"南微西", |SSW|:"西南偏南", |SSWSW|:"西南微南", |SW|:"西南"} & ¬
+    {|SWSWW|:"西南微西", |SWW|:"西南偏西", |SWWW|:"西微南", |W|:"西"} & ¬
+    {|WWWN|:"西微北", |WWN|:"西北偏西", |WWNWN|:"西北微西", |WN|:"西北"} & ¬
+    {|WNWNN|:"西北微北", |WNN|:"西北偏北", |WNNN|:"北微西"}]
+
+--  Scale invariant keys for points of the compass
+-- (allows us to look up a translation for one scale of compass (32 here)
+-- for use in another size of compass (8 or 16 points)
+-- (Also semi-serviceable as more or less legible keys without translation)
+
+-- compassKeys :: Int -> [String]
+on compassKeys(intDepth)
+    -- Simplest compass divides into two hemispheres
+    -- with one peak of ambiguity to the left,
+    -- and one to the right  (encoded by the commas in this list):
+    set urCompass to ["N", "S", "N"]
+
+    -- Necessity drives recursive subdivision of broader directions, shrinking
+    -- boxes down to a workable level of precision:
+    script subdivision
+        on |λ|(lstCompass, N)
+            if N ≤ 1 then
+                lstCompass
+            else
+                script subKeys
+                    on |λ|(a, x, i, xs)
+                        -- Borders between N and S engender E and W.
+                        -- further subdivisions (boxes)
+                        -- concatenate their two parent keys.
+                        if i > 1 then
+                            cond(N = intDepth, ¬
+                                a & {cond(x = "N", "W", "E")} & x, ¬
+                                a & {item (i - 1) of xs & x} & x)
+                        else
+                            a & x
+                        end if
+                    end |λ|
+                end script
+
+                |λ|(foldl(subKeys, {}, lstCompass), N - 1)
+            end if
+        end |λ|
+    end script
+
+    tell subdivision to items 1 thru -2 of |λ|(urCompass, intDepth)
+end compassKeys
+
+-- pointIndex :: Int -> Num -> String
+on pointIndex(power, degrees)
+    set nBoxes to 2 ^ power
+    set i to round (degrees + (360 / (nBoxes * 2))) ¬
+        mod 360 * nBoxes / 360 rounding up
+    cond(i > 0, i, 1)
+end pointIndex
+
+-- pointNames :: Int -> Int -> [String]
+on pointNames(precision, iBox)
+    set k to item iBox of compassKeys(precision)
+
+    script translation
+        on |λ|(recLang)
+            set maybeTrans to keyValue(recLang, k)
+            set strBrief to cond(maybeTrans is missing value, k, maybeTrans)
+
+            set recExpand to keyValue(recLang, "expansions")
+
+            if recExpand is not missing value then
+                script expand
+                    on |λ|(c)
+                        set t to keyValue(recExpand, c)
+                        cond(t is not missing value, t, c)
+                    end |λ|
+                end script
+                set strName to (intercalate(cond(precision > 5, " ", ""), ¬
+                    map(expand, characters of strBrief)))
+                toUpper(text item 1 of strName) & text items 2 thru -1 of strName
+            else
+                strBrief
+            end if
+        end |λ|
+    end script
+
+    map(translation, plstLangs)
+end pointNames
+
+-- maxLen :: [String] -> Int
+on maxLen(xs)
+    length of maximumBy(comparing(my |length|), xs)
+end maxLen
+
+-- alignRight :: Int -> String -> String
+on alignRight(nWidth, x)
+    justifyRight(nWidth, space, x)
+end alignRight
+
+-- alignLeft :: Int -> String -> String
+on alignLeft(nWidth, x)
+    justifyLeft(nWidth, space, x)
+end alignLeft
+
+-- show :: asString => a -> Text
+on show(x)
+    x as string
+end show
+
+-- compassTable :: Int -> [Num] -> Maybe String
+on compassTable(precision, xs)
+    if precision < 1 then
+        missing value
+    else
+        set intPad to 2
+        set rightAligned to curry(alignRight)
+        set leftAligned to curry(alignLeft)
+        set join to curry(my intercalate)
+
+        -- INDEX COLUMN
+        set lstIndex to map(|λ|(precision) of curry(pointIndex), xs)
+        set lstStrIndex to map(show, lstIndex)
+        set nIndexWidth to maxLen(lstStrIndex)
+        set colIndex to map(|λ|(nIndexWidth + intPad) of rightAligned, lstStrIndex)
+
+        -- ANGLES COLUMN
+        script degreeFormat
+            on |λ|(x)
+                set {c, m} to splitOn(".", x as string)
+                c & "." & (text 1 thru 2 of (m & "0")) & "°"
+            end |λ|
+        end script
+        set lstAngles to map(degreeFormat, xs)
+        set nAngleWidth to maxLen(lstAngles) + intPad
+        set colAngles to map(|λ|(nAngleWidth) of rightAligned, lstAngles)
+
+        -- NAMES COLUMNS
+        script precisionNames
+            on |λ|(iBox)
+                pointNames(precision, iBox)
+            end |λ|
+        end script
+
+        set lstTrans to transpose(map(precisionNames, lstIndex))
+        set lstTransWidths to map(maxLen, lstTrans)
+
+        script spacedNames
+            on |λ|(lstLang, i)
+                map(|λ|((item i of lstTransWidths) + 2) of leftAligned, lstLang)
+            end |λ|
+        end script
+
+        set colsTrans to map(spacedNames, lstTrans)
+
+        -- TABLE
+        intercalate(linefeed, ¬
+            map(|λ|("") of join, ¬
+                transpose({colIndex} & {colAngles} & ¬
+                    {replicate(length of lstIndex, "  ")} & colsTrans)))
+    end if
+end compassTable
+
+
+
+-- TEST ----------------------------------------------------------------------
+on run
+    set xs to [0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, ¬
+        84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, ¬
+        185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, ¬
+        270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, ¬
+        354.38]
+
+    --   If we supply other precisions, like 4 or 6, (2^n -> 16 or 64 boxes)
+    --    the bearings will be divided amongst smaller or larger numbers of boxes,
+    --    either using name translations retrieved by the generic hash
+    --    or using the keys of the hash itself (combined with any expansions)
+    --    to substitute for missing names for very finely divided boxes.
+
+    compassTable(5, xs) -- // 2^5  -> 32 boxes
+end run
+
+
+-- GENERIC FUNCTIONS ---------------------------------------------------------
+
+-- comparing :: (a -> b) -> (a -> a -> Ordering)
+on comparing(f)
+    set mf to mReturn(f)
+    script
+        on |λ|(a, b)
+            set x to mf's |λ|(a)
+            set y to mf's |λ|(b)
+            if x < y then
+                -1
+            else
+                if x > y then
+                    1
+                else
+                    0
+                end if
+            end if
+        end |λ|
+    end script
+end comparing
+
+-- cond :: Bool -> a -> a -> a
+on cond(bool, f, g)
+    if bool then
+        f
+    else
+        g
+    end if
+end cond
+
+-- curry :: (Script|Handler) -> Script
+on curry(f)
+    script
+        on |λ|(a)
+            script
+                on |λ|(b)
+                    |λ|(a, b) of mReturn(f)
+                end |λ|
+            end script
+        end |λ|
+    end script
+end curry
+
+-- foldl :: (a -> b -> a) -> a -> [b] -> a
+on foldl(f, startValue, xs)
+    tell mReturn(f)
+        set v to startValue
+        set lng to length of xs
+        repeat with i from 1 to lng
+            set v to |λ|(v, item i of xs, i, xs)
+        end repeat
+        return v
+    end tell
+end foldl
+
+-- intercalate :: Text -> [Text] -> Text
+on intercalate(strText, lstText)
+    set {dlm, my text item delimiters} to {my text item delimiters, strText}
+    set strJoined to lstText as text
+    set my text item delimiters to dlm
+    return strJoined
+end intercalate
+
+-- justifyLeft :: Int -> Char -> Text -> Text
+on justifyLeft(N, cFiller, strText)
+    if N > length of strText then
+        text 1 thru N of (strText & replicate(N, cFiller))
+    else
+        strText
+    end if
+end justifyLeft
+
+-- justifyRight :: Int -> Char -> Text -> Text
+on justifyRight(N, cFiller, strText)
+    if N > length of strText then
+        text -N thru -1 of ((replicate(N, cFiller) as text) & strText)
+    else
+        strText
+    end if
+end justifyRight
+
+-- keyValue :: Record -> String -> Maybe String
+on keyValue(rec, strKey)
+    set ca to current application
+    set v to (ca's NSDictionary's dictionaryWithDictionary:rec)'s objectForKey:strKey
+    if v is not missing value then
+        item 1 of ((ca's NSArray's arrayWithObject:v) as list)
+    else
+        missing value
+    end if
+end keyValue
+
+-- length :: [a] -> Int
+on |length|(xs)
+    length of xs
+end |length|
+
+-- map :: (a -> b) -> [a] -> [b]
+on map(f, xs)
+    tell mReturn(f)
+        set lng to length of xs
+        set lst to {}
+        repeat with i from 1 to lng
+            set end of lst to |λ|(item i of xs, i, xs)
+        end repeat
+        return lst
+    end tell
+end map
+
+-- maximumBy :: (a -> a -> Ordering) -> [a] -> a
+on maximumBy(f, xs)
+    set cmp to mReturn(f)
+    script max
+        on |λ|(a, b)
+            if a is missing value or cmp's |λ|(a, b) < 0 then
+                b
+            else
+                a
+            end if
+        end |λ|
+    end script
+
+    foldl(max, missing value, xs)
+end maximumBy
+
+-- Lift 2nd class handler function into 1st class script wrapper
+-- mReturn :: Handler -> Script
+on mReturn(f)
+    if class of f is script then
+        f
+    else
+        script
+            property |λ| : f
+        end script
+    end if
+end mReturn
+
+-- replicate :: Int -> a -> [a]
+on replicate(N, a)
+    set out to {}
+    if N < 1 then return out
+    set dbl to {a}
+
+    repeat while (N > 1)
+        if (N mod 2) > 0 then set out to out & dbl
+        set N to (N div 2)
+        set dbl to (dbl & dbl)
+    end repeat
+    return out & dbl
+end replicate
+
+-- splitOn :: Text -> Text -> [Text]
+on splitOn(strDelim, strMain)
+    set {dlm, my text item delimiters} to {my text item delimiters, strDelim}
+    set xs to text items of strMain
+    set my text item delimiters to dlm
+    return xs
+end splitOn
+
+-- transpose :: [[a]] -> [[a]]
+on transpose(xss)
+    script column
+        on |λ|(_, iCol)
+            script row
+                on |λ|(xs)
+                    item iCol of xs
+                end |λ|
+            end script
+
+            map(row, xss)
+        end |λ|
+    end script
+
+    map(column, item 1 of xss)
+end transpose
+
+-- toLower :: String -> String
+on toLower(str)
+    set ca to current application
+    ((ca's NSString's stringWithString:(str))'s ¬
+        lowercaseStringWithLocale:(ca's NSLocale's currentLocale())) as text
+end toLower
+
+-- toTitle :: String -> String
+on toTitle(str)
+    set ca to current application
+    ((ca's NSString's stringWithString:(str))'s ¬
+        capitalizedStringWithLocale:(ca's NSLocale's currentLocale())) as text
+end toTitle
+
+-- toUpper :: String -> String
+on toUpper(str)
+    set ca to current application
+    ((ca's NSString's stringWithString:(str))'s ¬
+        uppercaseStringWithLocale:(ca's NSLocale's currentLocale())) as text
+end toUpper
--- a/Task/Box-the-compass/AppleScript/box-the-compass-2.applescript
+++ b/Task/Box-the-compass/AppleScript/box-the-compass-2.applescript
@ -0,0 +1,46 @@
+on degreesToCompassPoint(degrees)
+    set cardinals to {"north", "east", "south", "west"}
+    set idx to ((degrees / 11.25) as integer) mod 32
+    set qIdx to idx mod 8
+    if (qIdx = 0) then return cardinals's item (idx div 8 + 1)
+    set ns to cardinals's item (3 - (idx + 24) div 16 mod 2 * 2)
+    set ew to cardinals's item ((idx div 16 + 1) * 2)
+    if (idx mod 16 > 7) then set qIdx to 8 - qIdx
+    if (qIdx = 1) then return ns & " by " & ew
+    if (qIdx = 2) then return ns & "-" & ns & ew
+    if (qIdx = 3) then return ns & ew & " by " & ns
+    if (qIdx = 4) then return ns & ew
+    if (qIdx = 5) then return ns & ew & " by " & ew
+    if (qIdx = 6) then return ew & "-" & ns & ew
+    return ew & " by " & ns -- qIdx = 7.
+end degreesToCompassPoint
+
+on join(lst, delim)
+    set astid to AppleScript's text item delimiters
+    set AppleScript's text item delimiters to delim
+    set txt to lst as text
+    set AppleScript's text item delimiters to astid
+    return txt
+end join
+
+on task()
+    set output to {"", "Index  Compass point          Degrees"}
+    set inputs to {0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, ¬
+        118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, ¬
+        253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38}
+    repeat with i from 1 to (count inputs)
+        set degrees to inputs's item i
+        set cpid to (degreesToCompassPoint(degrees))'s id
+        set cpid's first item to (cpid's beginning) mod 32 + 64
+        set compassPoint to string id cpid
+        set degrees to degrees as text
+        set entry to {text -2 thru -1 of (space & ((i - 1) mod 32 + 1)), ¬
+            text 1 thru 18 of (compassPoint & "              "), ¬
+            text (offset of "." in degrees) thru end of ("   " & degrees)}
+        set end of output to join(entry, "     ")
+    end repeat
+
+    join(output, linefeed)
+end task
+
+task()
--- a/Task/Box-the-compass/AppleScript/box-the-compass-3.applescript
+++ b/Task/Box-the-compass/AppleScript/box-the-compass-3.applescript
@ -0,0 +1,35 @@
+"
+Index  Compass point          Degrees
+ 1     North                    0.0
+ 2     North by east           16.87
+ 3     North-northeast         16.88
+ 4     Northeast by north      33.75
+ 5     Northeast               50.62
+ 6     Northeast by east       50.63
+ 7     East-northeast          67.5
+ 8     East by north           84.37
+ 9     East                    84.38
+10     East by south          101.25
+11     East-southeast         118.12
+12     Southeast by east      118.13
+13     Southeast              135.0
+14     Southeast by south     151.87
+15     South-southeast        151.88
+16     South by east          168.75
+17     South                  185.62
+18     South by west          185.63
+19     South-southwest        202.5
+20     Southwest by south     219.37
+21     Southwest              219.38
+22     Southwest by west      236.25
+23     West-southwest         253.12
+24     West by south          253.13
+25     West                   270.0
+26     West by north          286.87
+27     West-northwest         286.88
+28     Northwest by west      303.75
+29     Northwest              320.62
+30     Northwest by north     320.63
+31     North-northwest        337.5
+32     North by west          354.37
+ 1     North                  354.38"
--- a/Task/Box-the-compass/AutoHotkey/box-the-compass.ahk
+++ b/Task/Box-the-compass/AutoHotkey/box-the-compass.ahk
@ -0,0 +1,39 @@
+get_Index(angle){
+    return Mod(floor(angle / 11.25 +0.5), 32) + 1
+}
+
+get_Abbr_From_Index(i){
+    static points
+       := [ "N", "NbE", "NNE", "NEbN", "NE", "NEbE", "ENE", "EbN"
+           ,"E", "EbS", "ESE", "SEbE", "SE", "SEbS", "SSE", "SbE"
+           ,"S", "SbW", "SSW", "SWbS", "SW", "SWbW", "WSW", "WbS"
+           ,"W", "WbN", "WNW", "NWbW", "NW", "NWbN", "NNW", "NbW" ]
+    return points[i]
+}
+
+Build_Name_From_Abbr(a){
+    Loop Parse, a
+    {
+        i := A_Index
+        if ((i = 2) && (SubStr(a, i, 1) != "b") && (StrLen(a) == 3))
+            retval .= "-"
+        retval .= {N: "north", S: "south", E: "east"
+                 , W: "west" , b: " by "}[A_LoopField]
+    }
+    return Chr(Asc(SubStr(retval, 1, 1))-32) . SubStr(retval, 2)
+}
+
+; test
+
+headings:= [0.00, 16.87, 16.88, 33.75, 50.62, 50.63, 67.50, 84.37, 84.38, 101.25
+          , 118.12, 118.13, 135.00, 151.87, 151.88, 168.75, 185.62, 185.63
+          , 202.50, 219.37, 219.38, 236.25, 253.12, 253.13, 270.00, 286.87
+          , 286.88, 303.75, 320.62, 320.63, 337.50, 354.37, 354.38]
+For n, a in headings
+{
+    i := get_Index(a)
+    out .= SubStr(" " i, -1) " "
+        . SubStr(Build_Name_From_Abbr(get_Abbr_From_Index(i))
+        . "                    ", 1, 24) . SubStr("  " a, -5)  . "`r`n" ;
+}
+clipboard := out
--- a/Task/Box-the-compass/AutoIt/box-the-compass.autoit
+++ b/Task/Box-the-compass/AutoIt/box-the-compass.autoit
@ -0,0 +1,18 @@
+Local $avArray[33] = [0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, _
+		151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, _
+		303.75, 320.62, 320.63, 337.5, 354.37, 354.38]
+
+For $i = 0 To UBound($avArray) - 1
+	Boxing_the_compass($avArray[$i])
+Next
+
+Func Boxing_the_compass($Degree)
+	Local $namearray[33] = ["North", "North by east", "North-northeast", "Northeast by north", "Northeast", _
+			"Northeast by east", "East-northeast", "East by north", "East", "East by south", "East-southeast", _
+			"Southeast by east", "Southeast", "Southeast by south", "South-southeast", "South by east", "South", _
+			"South by west", "South-southwest", "Southwest by south", "Southwest", "Southwest by west", "West-southwest", _
+			"West by south", "West", "West by north", "West-northwest", "Northwest by west", "Northwest", "Northwest by north", _
+			"North-northwest", "North by west", "North"]
+	ConsoleWrite(StringFormat("%-2s", Mod(Floor($Degree / 11.25 + 0.5), 32)) & " : " & _
+			StringFormat("%-20s", $namearray[Mod(Floor($Degree / 11.25 + 0.5), 32)]) & " : " & $Degree & @CRLF)
+EndFunc   ;==>Boxing_the_compass
--- a/Task/Box-the-compass/BASIC256/box-the-compass.basic
+++ b/Task/Box-the-compass/BASIC256/box-the-compass.basic
@ -0,0 +1,11 @@
+arraybase 1
+
+dim names$ = {"North", "North by east", "North-northeast", "Northeast by north", "Northeast", "Northeast by east", "East-northeast", "East by north", "East", "East by south", "East-southeast", "Southeast by east", "Southeast", "Southeast by south", "South-southeast", "South by east", "South", "South by west", "South-southwest", "Southwest by south", "Southwest", "Southwest by west", "West-southwest", "West by south", "West", "West by north", "West-northwest", "Northwest by west", "Northwest", "Northwest by north", "North-northwest", "North by west", "North"}
+
+dim grados = {0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38}
+
+for i = grados[?,] to grados[?]
+    j = int((grados[i] + 5.625) / 11.25)
+    if j > 31 then j -= 32
+    print rjust(string(j),2); " "; ljust(string(names$[j+1]),20); grados[i]
+next i
--- a/Task/Box-the-compass/BBC-BASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/BBC-BASIC/box-the-compass.basic
@ -0,0 +1,27 @@
+      DIM bearing(32)
+      bearing() = 0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, \
+      \ 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, \
+      \ 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, \
+      \ 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38
+
+      FOR i% = 0 TO 32
+        box% = FNcompassbox(bearing(i%), compass$)
+        PRINT ; bearing(i%), ; box%, compass$
+      NEXT
+      END
+
+      DEF FNcompassbox(bearing, RETURN box$)
+      LOCAL pt%
+      pt% = INT(bearing / 360 * 32 + 0.5) MOD 32
+      box$ = FNpt(pt%)
+      LEFT$(box$,1) = CHR$(ASC(LEFT$(box$,1))-32)
+      = pt% + 1
+
+      DEF FNpt(pt%)
+      LOCAL pt$() : DIM pt$(3)
+      IF pt% AND 1 THEN = FNpt((pt% + 1) AND 28) + " by " + \
+      \                   FNpt(((2 - (pt% AND 2)) * 4) + pt% AND 24)
+      IF pt% AND 2 THEN = FNpt((pt% + 2) AND 24) + "-" + FNpt((pt% OR 4) AND 28)
+      IF pt% AND 4 THEN = FNpt((pt% + 8) AND 16) + FNpt((pt% OR 8) AND 24)
+      pt$() = "north", "east", "south", "west"
+      = pt$(pt% DIV 8)
--- a/Task/Box-the-compass/Befunge/box-the-compass.bf
+++ b/Task/Box-the-compass/Befunge/box-the-compass.bf
@ -0,0 +1,15 @@
+>>::"}"9**\4+3%79*9*5-*79*9*5--+:5>>>06p:55+%68*+v
+^_@#!`*84:+1<v*9"}"*+55,,,".",,,$$_^#!:-1g60/+55\<
+>_06g:v>55+,^>/5+55+/48*::::,,,,%:1+.9,:06p48*\-0v
+|p60-1<|<!p80:<N|Ev"northwest"0"North by west"0p8<
+>:#,_>>>_08g1-^W|S>"-htroN"0"htron yb tsewhtroN"0v
+#v"est-northwest"0"Northwest by west"0"Northwest"<
+N>"W"0"htron yb tseW"0"tseW"0"htuos yb tseW"0"ts"v
+#v0"Southwest"0"Southwest by west"0"West-southwe"<
+S>"htuos yb tsewhtuoS"0"tsewhtuos-htuoS"0"tsew y"v
+#v"h-southeast"0"South by east"0"South"0"South b"<
+E>"tuoS"0"htuos yb tsaehtuoS"0"tsaehtuoS"0"tsae "v
+#v"East by south"0"East-southeast"0"Southeast by"<
+W>0"tsaE"0"htron yb tsaE"0"tsaehtron-tsaE"0"tsae"v
+#v"rtheast by north"0"Northeast"0"Northeast by "<<
+^>"oN"0"tsaehtron-htroN"0"tsae yb htroN"0"htroN"01
--- a/Task/Box-the-compass/C++/box-the-compass.cpp
+++ b/Task/Box-the-compass/C++/box-the-compass.cpp
@ -0,0 +1,59 @@
+#include <string>
+#include <boost/array.hpp>
+#include <boost/assign/list_of.hpp>
+#include <boost/format.hpp>
+#include <boost/foreach.hpp>
+#include <iostream>
+#include <math.h>
+using std::string;
+using namespace boost::assign;
+
+int get_Index(float angle)
+{
+   return static_cast<int>(floor(angle / 11.25 +0.5 )) % 32 + 1;
+}
+
+string get_Abbr_From_Index(int i)
+{
+    static boost::array<std::string, 32> points(list_of
+            ("N")("NbE")("NNE")("NEbN")("NE")("NEbE")("ENE")("EbN")
+            ("E")("EbS")("ESE")("SEbE")("SE")("SEbS")("SSE")("SbE")
+            ("S")("SbW")("SSW")("SWbS")("SW")("SWbW")("WSW")("WbS")
+            ("W")("WbN")("WNW")("NWbW")("NW")("NWbN")("NNW")("NbW"));
+    return points[i-1];
+}
+
+string Build_Name_From_Abbreviation(string a)
+{
+    string retval;
+    for (int i = 0; i < a.size(); ++i){
+        if ((1 == i) && (a[i] != 'b') && (a.size() == 3)) retval += "-";
+        switch (a[i]){
+            case 'N' : retval += "north"; break;
+            case 'S' : retval += "south"; break;
+            case 'E' : retval += "east";  break;
+            case 'W' : retval += "west";  break;
+            case 'b' : retval += " by ";  break;
+        }
+    }
+    retval[0] = toupper(retval[0]);
+    return retval;
+}
+
+int main()
+{
+    boost::array<float,33> headings(list_of
+            (0.0)(16.87)(16.88)(33.75)(50.62)(50.63)(67.5)(84.37)(84.38)(101.25)
+            (118.12)(118.13)(135.0)(151.87)(151.88)(168.75)(185.62)(185.63)(202.5)
+            (219.37)(219.38)(236.25)(253.12)(253.13)(270.0)(286.87)(286.88)(303.75)
+            (320.62)(320.63)(337.5)(354.37)(354.38));
+    int i;
+    boost::format f("%1$4d %2$-20s %3$_7.2f");
+
+    BOOST_FOREACH(float a, headings)
+    {
+        i = get_Index(a);
+        std::cout << f % i %  Build_Name_From_Abbreviation(get_Abbr_From_Index(i)) % a << std::endl;
+    }
+    return 0;
+}
--- a/Task/Box-the-compass/C-sharp/box-the-compass.cs
+++ b/Task/Box-the-compass/C-sharp/box-the-compass.cs
@ -0,0 +1,36 @@
+using System;
+using System.Collections.Generic;
+
+namespace BoxTheCompass
+{
+    class Compass
+    {
+        string[] cp = new string[] {"North", "North by east", "North-northeast", "Northeast by north", "Northeast","Northeast by east",
+	    "East-northeast", "East by north", "East", "East by south", "East-southeast", "Southeast by east", "Southeast",
+            "Southeast by south", "South-southeast", "South by east", "South", "South by west", "South-southwest", "Southwest by south",
+            "Southwest", "Southwest by west", "West-southwest", "West by south", "West", "West by north", "West-northwest",
+            "Northwest by west", "Northwest", "Northwest by north", "North-northwest", "North by west", "North"};
+
+        public void compassHeading(float a)
+        {
+            int h = Convert.ToInt32(Math.Floor(a / 11.25f + .5f)) % 32;
+            Console.WriteLine( "{0,2}: {1,-22} : {2,6:N}",h + 1, cp[h], a );
+        }
+    };
+    class Program
+    {
+        static void Main(string[] args)
+       {
+            Compass c = new Compass();
+            float[] degs = new float[] {0.0f, 16.87f, 16.88f, 33.75f, 50.62f, 50.63f, 67.5f, 84.37f, 84.38f, 101.25f,
+                118.12f, 118.13f, 135.0f, 151.87f, 151.88f, 168.75f, 185.62f, 185.63f, 202.5f, 219.37f, 219.38f, 236.25f,
+                253.12f, 253.13f, 270.0f, 286.87f, 286.88f, 303.75f, 320.62f, 320.63f, 337.5f, 354.37f, 354.38f};
+
+            foreach (float d in degs)
+                c.compassHeading(d);
+
+            Console.WriteLine("\nPress any key to continue...");
+            Console.ReadKey();
+        }
+    }
+}
--- a/Task/Box-the-compass/C/box-the-compass.c
+++ b/Task/Box-the-compass/C/box-the-compass.c
@ -0,0 +1,53 @@
+#include <stdio.h>
+
+int main()
+{
+        int i, j;
+        double degrees[] = { 0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5,
+                84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88,
+                168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12,
+                253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5,
+                354.37, 354.38 };
+        const char * names =  "North                 "
+                              "North by east         "
+                              "North-northeast       "
+                              "Northeast by north    "
+                              "Northeast             "
+                              "Northeast by east     "
+                              "East-northeast        "
+                              "East by north         "
+                              "East                  "
+                              "East by south         "
+                              "East-southeast        "
+                              "Southeast by east     "
+                              "Southeast             "
+                              "Southeast by south    "
+                              "South-southeast       "
+                              "South by east         "
+                              "South                 "
+                              "South by west         "
+                              "South-southwest       "
+                              "Southwest by south    "
+                              "Southwest             "
+                              "Southwest by west     "
+                              "West-southwest        "
+                              "West by south         "
+                              "West                  "
+                              "West by north         "
+                              "West-northwest        "
+                              "Northwest by west     "
+                              "Northwest             "
+                              "Northwest by north    "
+                              "North-northwest       "
+                              "North by west         "
+                              "North                 ";
+
+        for (i = 0; i < 33; i++) {
+                j = .5 + degrees[i] * 32 / 360;
+
+                printf("%2d  %.22s  %6.2f\n", (j % 32) + 1, names + (j % 32) * 22,
+                        degrees[i]);
+        }
+
+        return 0;
+}
--- a/Task/Box-the-compass/COBOL/box-the-compass.cobol
+++ b/Task/Box-the-compass/COBOL/box-the-compass.cobol
@ -0,0 +1,67 @@
+       identification division.
+       program-id. box-compass.
+       data division.
+       working-storage section.
+       01 point                pic 99.
+       01 degrees              usage float-short.
+       01 degrees-rounded      pic 999v99.
+       01 show-degrees         pic zz9.99.
+       01 box                  pic z9.
+       01 fudge                pic 9.
+       01 compass              pic x(4).
+       01 compass-point        pic x(18).
+       01 shortform            pic x.
+       01 short-names.
+          05 short-name        pic x(4) occurs 33 times.
+       01 overlay.
+          05 value "N   " & "NbE " & "N-NE" & "NEbN" & "NE  " &
+                   "NEbE" & "E-NE" & "EbN " & "E   " & "EbS " &
+                   "E-SE" & "SEbE" & "SE  " & "SEbS" & "S-SE" &
+                   "SbE " & "S   " & "SbW " & "S-SW" & "SWbS" &
+                   "SW  " & "SWbW" & "W-SW" & "WbS " & "W   " &
+                   "WbN " & "W-NW" & "NWbW" & "NW  " & "NWbN" &
+                   "N-NW" & "NbW " & "N   ".
+
+       procedure division.
+       display "Index Compass point      Degree"
+
+       move overlay to short-names.
+       perform varying point from 0 by 1 until point > 32
+           compute box = function mod(point 32) + 1
+           compute degrees = point * 11.25
+           compute fudge = function mod(point 3)
+           evaluate fudge
+              when equal 1
+                  add 5.62 to degrees
+              when equal 2
+                  subtract 5.62 from degrees
+           end-evaluate
+
+           compute degrees-rounded rounded = degrees
+           move degrees-rounded to show-degrees
+           inspect show-degrees replacing trailing '00' by '0 '
+           inspect show-degrees replacing trailing '50' by '5 '
+
+           move short-name(point + 1) to compass
+           move spaces to compass-point
+           display space box space space space with no advancing
+           perform varying tally from 1 by 1 until tally > 4
+               move compass(tally:1) to shortform
+               move function concatenate(function trim(compass-point),
+                    function substitute(shortform,
+                        "N", "North",
+                        "E", "East",
+                        "S", "South",
+                        "W", "West",
+                        "b", " byZ",
+                        "-", "-"))
+                 to compass-point
+           end-perform
+           move function substitute(compass-point, "Z", " ")
+             to compass-point
+           move function lower-case(compass-point) to compass-point
+           move function upper-case(compass-point(1:1))
+             to compass-point(1:1)
+           display compass-point space show-degrees
+       end-perform
+       goback.
--- a/Task/Box-the-compass/Clojure/box-the-compass.clj
+++ b/Task/Box-the-compass/Clojure/box-the-compass.clj
@ -0,0 +1,26 @@
+(ns boxing-the-compass
+  (:use [clojure.string :only [capitalize]]))
+
+(def headings
+     (for [i (range 0 (inc 32))]
+       (let [heading (* i 11.25)]
+	 (case (mod i 3)
+	       1 (+ heading 5.62)
+	       2 (- heading 5.62)
+	       heading))))
+
+(defn angle2compass
+  [angle]
+  (let [dirs ["N" "NbE" "N-NE" "NEbN" "NE" "NEbE" "E-NE" "EbN"
+	      "E" "EbS" "E-SE" "SEbE" "SE" "SEbS" "S-SE" "SbE"
+	      "S" "SbW" "S-SW" "SWbS" "SW" "SWbW" "W-SW" "WbS"
+	      "W" "WbN" "W-NW" "NWbW" "NW" "NWbN" "N-NW" "NbW"]
+	unpack {\N "north" \E "east" \W "west" \S "south" \b " by " \- "-"}
+	sep  (/ 360 (count dirs))
+	dir  (int (/ (mod (+ angle (/ sep 2)) 360) sep))]
+    (capitalize (apply str (map unpack (dirs dir))))))
+
+(print
+ (apply str (map-indexed #(format "%2s %-18s %7.2f\n"
+				  (inc (mod %1 32)) (angle2compass %2) %2)
+			 headings)))
--- a/Task/Box-the-compass/D/box-the-compass-1.d
+++ b/Task/Box-the-compass/D/box-the-compass-1.d
@ -0,0 +1,34 @@
+import std.stdio, std.string, std.math, std.array;
+
+struct boxTheCompass {
+    immutable static string[32] points;
+
+    pure nothrow static this() {
+        immutable cardinal = ["north", "east", "south", "west"];
+        immutable desc = ["1", "1 by 2", "1-C", "C by 1", "C",
+                          "C by 2", "2-C", "2 by 1"];
+
+        foreach (immutable i; 0 .. 4) {
+            immutable s1 = cardinal[i];
+            immutable s2 = cardinal[(i + 1) % 4];
+            immutable sc = (s1 == "north" || s1 == "south") ?
+                           (s1 ~ s2) : (s2 ~ s1);
+            foreach (immutable j; 0 .. 8)
+                points[i * 8 + j] = desc[j].replace("1", s1).
+                                    replace("2", s2).replace("C", sc);
+        }
+    }
+
+    static string opCall(in double degrees) pure /*nothrow*/ {
+        immutable testD = (degrees / 11.25) + 0.5;
+        return points[cast(int)floor(testD % 32)].capitalize;
+    }
+}
+
+void main() {
+    foreach (immutable i; 0 .. 33) {
+        immutable heading = i * 11.25 + [0, 5.62, -5.62][i % 3];
+        writefln("%s\t%18s\t%s", i % 32 + 1,
+                 heading.boxTheCompass, heading);
+    }
+}
--- a/Task/Box-the-compass/D/box-the-compass-2.d
+++ b/Task/Box-the-compass/D/box-the-compass-2.d
@ -0,0 +1,24 @@
+void main() {
+    import std.stdio;
+
+    immutable box = [
+        "North", "North by east", "North-northeast", "Northeast by north",
+        "Northeast", "Northeast by east", "East-northeast", "East by north",
+        "East", "East by south", "East-southeast", "Southeast by east",
+        "Southeast", "Southeast by south", "South-southeast", "South by east",
+        "South", "South by west", "South-southwest", "Southwest by south",
+        "Southwest", "Southwest by west", "West-southwest", "West by south",
+        "West", "West by north", "West-northwest", "Northwest by west",
+        "Northwest", "Northwest by north", "North-northwest", "North by west"];
+
+    immutable angles = [
+        0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38,
+        101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62,
+        185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
+        286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38];
+
+    foreach (immutable phi; angles) {
+        immutable i = (cast(int)(phi * 32.0 / 360.0 + 0.5)) % 32;
+        writefln("%2d %18s %6.2f", i + 1, box[i], phi);
+    }
+}
--- a/Task/Box-the-compass/Elixir/box-the-compass.elixir
+++ b/Task/Box-the-compass/Elixir/box-the-compass.elixir
@ -0,0 +1,24 @@
+defmodule Box do
+  defp head do
+    Enum.chunk(~w(north east south west north), 2, 1)
+    |> Enum.flat_map(fn [a,b] ->
+         c = if a=="north" or a=="south", do: "#{a}#{b}", else: "#{b}#{a}"
+         [ a, "#{a} by #{b}", "#{a}-#{c}", "#{c} by #{a}",
+           c, "#{c} by #{b}", "#{b}-#{c}", "#{b} by #{a}" ]
+       end)
+    |> Enum.with_index
+    |> Enum.map(fn {s, i} -> {i+1, String.capitalize(s)} end)
+    |> Map.new
+  end
+
+  def compass do
+    header = head()
+    angles = Enum.map(0..32, fn i -> i * 11.25 + elem({0, 5.62, -5.62}, rem(i, 3)) end)
+    Enum.each(angles, fn degrees ->
+      index = rem(round(32 * degrees / 360), 32) + 1
+      :io.format "~2w  ~-20s ~6.2f~n", [index, header[index], degrees]
+    end)
+  end
+end
+
+Box.compass
--- a/Task/Box-the-compass/Euphoria/box-the-compass.euphoria
+++ b/Task/Box-the-compass/Euphoria/box-the-compass.euphoria
@ -0,0 +1,23 @@
+constant names = {"North","North by east","North-northeast","Northeast by north",
+    "Northeast","Northeast by east","East-northeast","East by north","East",
+    "East by south","East-southeast","Southeast by east","Southeast","Southeast by south",
+    "South-southeast","South by east","South","South by west","South-southwest",
+    "Southwest by south","Southwest","Southwest by west","West-southwest",
+    "West by south","West","West by north","West-northwest","Northwest by west",
+    "Northwest","Northwest by north","North-northwest","North by west"}
+
+function deg2ind(atom degree)
+    return remainder(floor(degree*32/360+.5),32)+1
+end function
+
+sequence degrees
+degrees = {}
+for i = 0 to 32 do
+    degrees &= i*11.25 + 5.62*(remainder(i+1,3)-1)
+end for
+
+integer j
+for i = 1 to length(degrees) do
+    j = deg2ind(degrees[i])
+    printf(1, "%6.2f  %2d  %-22s\n", {degrees[i], j, names[j]})
+end for
--- a/Task/Box-the-compass/F-Sharp/box-the-compass.fs
+++ b/Task/Box-the-compass/F-Sharp/box-the-compass.fs
@ -0,0 +1,17 @@
+let box = [|
+    "North"; "North by east"; "North-northeast"; "Northeast by north";
+    "Northeast"; "Northeast by east"; "East-northeast"; "East by north";
+    "East"; "East by south"; "East-southeast"; "Southeast by east";
+    "Southeast"; "Southeast by south"; "South-southeast"; "South by east";
+    "South"; "South by west"; "South-southwest"; "Southwest by south";
+    "Southwest"; "Southwest by west"; "West-southwest"; "West by south";
+    "West"; "West by north"; "West-northwest"; "Northwest by west";
+    "Northwest"; "Northwest by north"; "North-northwest"; "North by west" |]
+
+[ 0.0; 16.87; 16.88; 33.75; 50.62; 50.63; 67.5; 84.37; 84.38;
+101.25; 118.12; 118.13; 135.0; 151.87; 151.88; 168.75; 185.62;
+185.63; 202.5; 219.37; 219.38; 236.25; 253.12; 253.13; 270.0;
+286.87; 286.88; 303.75; 320.62; 320.63; 337.5; 354.37; 354.38 ]
+|> List.iter (fun phi ->
+    let i =  (int (phi * 32. / 360. + 0.5)) % 32
+    printf "%3d %18s %6.2f°\n" (i + 1) box.[i] phi)
--- a/Task/Box-the-compass/Factor/box-the-compass.factor
+++ b/Task/Box-the-compass/Factor/box-the-compass.factor
@ -0,0 +1,27 @@
+USING: formatting kernel math sequences ;
+
+CONSTANT: box
+{
+    "North" "North by east" "North-northeast"
+    "Northeast by north" "Northeast" "Northeast by east"
+    "East-northeast" "East by north" "East" "East by south"
+    "East-southeast" "Southeast by east" "Southeast"
+    "Southeast by south" "South-southeast" "South by east"
+    "South" "South by west" "South-southwest"
+    "Southwest by south" "Southwest" "Southwest by west"
+    "West-southwest" "West by south" "West" "West by north"
+    "West-northwest" "Northwest by west" "Northwest"
+    "Northwest by north" "North-northwest" "North by west"
+}
+
+{
+    0 16.87 16.88 33.75 50.62 50.63 67.5 84.37 84.38 101.25
+    118.12 118.13 135 151.87 151.88 168.75 185.62 185.63 202.5
+    219.37 219.38 236.25 253.12 253.13 270 286.87 286.88 303.75
+    320.62 320.63 337.5 354.37 354.38
+}
+
+[
+    dup 32 * 360 /f 0.5 + >integer 32 mod [ 1 + ] [ box nth ] bi
+    "%6.2f°  %2d  %s\n" printf
+] each
--- a/Task/Box-the-compass/Fortran/box-the-compass.f
+++ b/Task/Box-the-compass/Fortran/box-the-compass.f
@ -0,0 +1,38 @@
+Program Compass
+  implicit none
+
+  integer :: i, ind
+  real :: heading
+
+  do i = 0, 32
+    heading = i * 11.25
+    if (mod(i, 3) == 1) then
+      heading = heading + 5.62
+    else if (mod(i, 3) == 2) then
+            heading = heading - 5.62
+    end if
+    ind = mod(i, 32) + 1
+    write(*, "(i2, a20, f8.2)") ind, compasspoint(heading), heading
+  end do
+
+contains
+
+function compasspoint(h)
+  character(18) :: compasspoint
+  character(18) :: points(32) = (/ "North             ", "North by east     ", "North-northeast   ", &
+             "Northeast by north", "Northeast         ", "Northeast by east ", "East-northeast    ", &
+             "East by north     ", "East              ", "East by south     ", "East-southeast    ", &
+             "Southeast by east ", "Southeast         ", "Southeast by south", "South-southeast   ", &
+             "South by east     ", "South             ", "South by west     ", "South-southwest   ", &
+             "Southwest by south", "Southwest         ", "Southwest by west ", "West-southwest    ", &
+             "West by south     ", "West              ", "West by north     ", "West-northwest    ", &
+             "Northwest by west ", "Northwest         ", "Northwest by north", "North-northwest   ", &
+             "North by west     "  /)
+  real, intent(in) :: h
+  real :: x
+
+  x = h / 11.25 + 1.5
+  if (x >= 33.0) x = x - 32.0
+  compasspoint = points(int(x))
+end function compasspoint
+end program Compass
--- a/Task/Box-the-compass/FreeBASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/FreeBASIC/box-the-compass.basic
@ -0,0 +1,32 @@
+' version 04-11-2016
+' compile with: fbc -s console
+
+Dim As String names(0 To ...) = { "North", "North by east", "North-northeast", _
+     "Northeast by north", "Northeast", "Northeast by east", "East-northeast", _
+                   "East by north", "East", "East by south", "East-southeast", _
+    "Southeast by east", "Southeast", "Southeast by south", "South-southeast", _
+                 "South by east", "South", "South by west", "South-southwest", _
+     "Southwest by south", "Southwest", "Southwest by west", "West-southwest", _
+                   "West by south", "West", "West by north", "West-northwest", _
+    "Northwest by west", "Northwest", "Northwest by north", "North-northwest", _
+                                                     "North by west", "North" }
+
+Dim As Double degrees(0 To ...) = { 0, 16.87, 16.88, 33.75, 50.62, 50.63, _
+ 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135, 151.87, 151.88, 168.75, _
+      185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270, _
+           286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38 }
+
+Dim As ULong i, j
+
+For i = LBound(degrees) To UBound(degrees)
+    j = Int((degrees(i) + 5.625) / 11.25)
+    If j > 31 Then j = j - 32
+    Print Using "####.##  ##  "; degrees(i); j;
+    Print names(j)
+Next
+
+' empty keyboard buffer
+While Inkey <> "" : Wend
+Print : Print "hit any key to end program"
+Sleep
+End
--- a/Task/Box-the-compass/Gambas/box-the-compass.gambas
+++ b/Task/Box-the-compass/Gambas/box-the-compass.gambas
@ -0,0 +1,19 @@
+Public Sub Main()
+Dim fDeg As Float[] = [0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]
+Dim cHeading As Collection = ["N": "North", "S": "South", "W": "West", "E": "East", "b": "by"]
+Dim sHeading As String[] = ["N", "NbE", "NNE", "NEbE", "NE", "NEbE", "ENE", "EbN", "E", "EbS", "ESE", "SEbE", "SE", "SEbS", "SSE", "SbE", "S", "SbW", "SSW", "SWbS", "SW", "SWbW", "WSW", "WbS", "W", "WbN", "WNW", "NWbW", "NW", "NWbN", "NNW", "NbW"]
+Dim siLoop As Short
+Dim sDirection As String
+Dim fCount, fTemp As Float
+
+For Each fCount In fDeg
+   fTemp = Round(fCount / 11.25)
+   If fTemp = 32 Then fTemp = 0
+    For siLoop = 0 To Len(sHeading[fTemp])
+      sDirection &= cHeading[Mid(sHeading[fTemp], siLoop + 1, 1)] & " "
+    Next
+  Print "Index=" & Format(fTemp + 1, "#0") & "  " & Format(Str(fCount), "##0.00") & " degrees = " & sDirection
+  sDirection = ""
+Next
+
+End
--- a/Task/Box-the-compass/Go/box-the-compass.go
+++ b/Task/Box-the-compass/Go/box-the-compass.go
@ -0,0 +1,67 @@
+package main
+
+import "fmt"
+
+// function required by task
+func degrees2compasspoint(h float32) string {
+    return compassPoint[cpx(h)]
+}
+
+// cpx returns integer index from 0 to 31 corresponding to compass point.
+// input heading h is in degrees.  Note this index is a zero-based index
+// suitable for indexing into the table of printable compass points,
+// and is not the same as the index specified to be printed in the output.
+func cpx(h float32) int {
+    x := int(h/11.25+.5) % 32
+    if x < 0 {
+        x += 32
+    }
+    return x
+}
+
+// printable compass points
+var compassPoint = []string{
+    "North",
+    "North by east",
+    "North-northeast",
+    "Northeast by north",
+    "Northeast",
+    "Northeast by east",
+    "East-northeast",
+    "East by north",
+    "East",
+    "East by south",
+    "East-southeast",
+    "Southeast by east",
+    "Southeast",
+    "Southeast by south",
+    "South-southeast",
+    "South by east",
+    "South",
+    "South by west",
+    "South-southwest",
+    "Southwest by south",
+    "Southwest",
+    "Southwest by west",
+    "West-southwest",
+    "West by south",
+    "West",
+    "West by north",
+    "West-northwest",
+    "Northwest by west",
+    "Northwest",
+    "Northwest by north",
+    "North-northwest",
+    "North by west",
+}
+
+func main() {
+    fmt.Println("Index  Compass point         Degree")
+    for i, h := range []float32{0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5,
+        84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75,
+        185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
+        286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38} {
+        index := i%32 + 1 // printable index computed per pseudocode
+        fmt.Printf("%4d   %-19s %7.2f°\n", index, degrees2compasspoint(h), h)
+    }
+}
--- a/Task/Box-the-compass/Groovy/box-the-compass.groovy
+++ b/Task/Box-the-compass/Groovy/box-the-compass.groovy
@ -0,0 +1,22 @@
+def asCompassPoint(angle) {
+    def cardinalDirections = ["north", "east", "south", "west"]
+
+    int index = Math.floor(angle / 11.25 + 0.5)
+    int cardinalIndex = (index / 8)
+
+    def c1 = cardinalDirections[cardinalIndex % 4]
+    def c2 = cardinalDirections[(cardinalIndex + 1) % 4]
+    def c3 = (cardinalIndex == 0 || cardinalIndex == 2) ? "$c1$c2" : "$c2$c1"
+
+    def point = [
+        "$c1", "$c1 by $c2", "$c1-$c3", "$c3 by $c1", "$c3", "$c3 by $c2", "$c2-$c3", "$c2 by $c1"
+    ][index % 8]
+    point.substring(0, 1).toUpperCase() + point.substring(1)
+}
+Number.metaClass.asCompassPoint =  { asCompassPoint(delegate) }
+
+[0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75,
+ 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5,
+ 354.37, 354.38].eachWithIndex { angle, index ->
+    println "${(index % 32) + 1}".padRight(3) + "${angle.asCompassPoint().padLeft(20)}    $angle\u00b0"
+}
--- a/Task/Box-the-compass/Haskell/box-the-compass.hs
+++ b/Task/Box-the-compass/Haskell/box-the-compass.hs
@ -0,0 +1,70 @@
+import Data.Char (toUpper)
+
+import Data.Maybe (fromMaybe)
+
+import Text.Printf (PrintfType, printf)
+
+dirs :: [String]
+dirs =
+  [ "N"
+  , "NbE"
+  , "N-NE"
+  , "NEbN"
+  , "NE"
+  , "NEbE"
+  , "E-NE"
+  , "EbN"
+  , "E"
+  , "EbS"
+  , "E-SE"
+  , "SEbE"
+  , "SE"
+  , "SEbS"
+  , "S-SE"
+  , "SbE"
+  , "S"
+  , "SbW"
+  , "S-SW"
+  , "SWbS"
+  , "SW"
+  , "SWbW"
+  , "W-SW"
+  , "WbS"
+  , "W"
+  , "WbN"
+  , "W-NW"
+  , "NWbW"
+  , "NW"
+  , "NWbN"
+  , "N-NW"
+  , "NbW"
+  ]
+
+-- Index between 0 and 31 ->  the corresponding compass point name.
+pointName :: Int -> String
+pointName = capitalize . concatMap (fromMaybe "?" . fromChar) . (dirs !!)
+  where
+    fromChar c =
+      lookup
+        c
+        [ ('N', "north")
+        , ('S', "south")
+        , ('E', "east")
+        , ('W', "west")
+        , ('b', " by ")
+        , ('-', "-")
+        ]
+    capitalize (c:cs) = toUpper c : cs
+
+-- Degrees -> compass point index between 0 and 31.
+pointIndex :: Double -> Int
+pointIndex d = (round (d * 1000) + 5625) `mod` 360000 `div` 11250
+
+printPointName :: PrintfType t => String -> t
+printPointName d =
+  let deg = read d :: Double
+      idx = pointIndex deg
+  in printf "%2d  %-18s  %6.2f°\n" (idx + 1) (pointName idx) deg
+
+main :: IO ()
+main = mapM_ (printPointName . show) [0 .. 31]
--- a/Task/Box-the-compass/Huginn/box-the-compass.huginn
+++ b/Task/Box-the-compass/Huginn/box-the-compass.huginn
@ -0,0 +1,46 @@
+import Algorithms as algo;
+import Text as text;
+
+class Compass {
+  _majors = none;
+  _quarter1 = none;
+  _quarter2 = none;
+  constructor() {
+    _majors = algo.materialize( text.split( "north east south west", " " ), tuple );
+    _majors += _majors;
+    _quarter1 = text.split( "N,N by E,N-NE,NE by N,NE,NE by E,E-NE,E by N", "," );
+    _quarter2 = algo.materialize( algo.map( _quarter1, @( s ){ copy( s ).replace( "NE", "EN" ); } ), list );
+  }
+  degrees_to_compasspoint( d ) {
+    d = d % 360. + 360. / 64.;
+    majorindex, minor = ( integer( d ) / 90, d % 90. );
+    minorindex  = integer( minor * 4. ) / 45;
+    p1, p2 = _majors[majorindex: majorindex + 2];
+    q = none;
+    if ( p1 ∈ { "north", "south" } ) {
+      q = _quarter1;
+    } else {
+      q = _quarter2;
+    }
+    return ( text.capitalize( copy( q[minorindex] ).replace( "N", p1 ).replace( "E", p2 ) ) );
+  }
+}
+
+main() {
+  print(
+    " # |  Angle  | Compass point\n"
+    "---+---------|-------------------\n"
+  );
+  c = Compass();
+  for ( i : algo.range( 33 ) ) {
+    d = real( i ) * 11.25;
+    m = i % 3;
+    if ( m == 1 ) {
+      d += 5.62;
+    } else if ( m == 2 ) {
+      d -= 5.62;
+    }
+    n = i % 32 + 1;
+    print( "{:2d} | {:6.2f}° | {}\n".format( n, d, c.degrees_to_compasspoint( d ) ) );
+  }
+}
--- a/Task/Box-the-compass/IS-BASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/IS-BASIC/box-the-compass.basic
@ -0,0 +1,14 @@
+100 PROGRAM "Compass.bas"
+110 STRING DR$(1 TO 33)*18
+120 FOR I=1 TO 33
+130   READ DR$(I)
+140 NEXT
+150 DO
+160   READ IF MISSING EXIT DO:D
+170   LET DIR=COMP(D)
+180   PRINT D;TAB(12);DIR,DR$(DIR)
+190 LOOP
+200 DEF COMP(D)=CEIL(MOD((D+360/64),360)*32/360)
+210 DATA North,North by east,North-northeast,Northeast by north,Northeast,Northeast by east,East-northeast,East by north,East,East by south,East-southeast,Southeast by east,Southeast,Southeast by south,South-southeast,South by east
+220 DATA South,South by west,South-southwest,Southwest by south,Southwest,Southwest by west,West-southwest,West by south,West,West by north,West-northwest,Northwest by west,Northwest,Northwest by north,North-northwest,North by west,North
+230 DATA 0.0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25,118.12,118.13,135.0,151.87,151.88,168.75,185.62,185.63,202.5,219.37,219.38,236.25,253.12,253.13,270.0,286.87,286.88,303.75,320.62,320.63,337.5,354.37,354.38
--- a/Task/Box-the-compass/Icon/box-the-compass.icon
+++ b/Task/Box-the-compass/Icon/box-the-compass.icon
@ -0,0 +1,26 @@
+link strings,numbers
+
+procedure main()
+
+every heading := 11.25 * (i := 0 to 32) do {
+   case i%3 of {
+      1: heading +:= 5.62
+      2: heading -:= 5.62
+      }
+   write(right(i+1,3)," ",left(direction(heading),20)," ",fix(heading,,7,2))
+   }
+end
+
+procedure direction(d)  # compass heading given +/- degrees
+static dirs
+initial {
+   every put(dirs := [],
+             replacem(!["N","NbE","N-NE","NEbN","NE","NEbE","E-NE","EbN",
+                        "E","EbS","E-SE","SEbE","SE","SEbS","S-SE","SbE",
+	                     "S","SbW","S-SW","SWbS","SW","SWbW","W-SW","WbS",
+	                    "W","WbN","W-NW","NWbW","NW","NWbN","N-NW","NbW"],
+                       "N","north","E","east","W","west","S","south","b"," by "))
+   }
+
+   return dirs[round(((((d%360)+360)%360)/11.25)%32 + 1)]
+end
--- a/Task/Box-the-compass/J/box-the-compass-1.j
+++ b/Task/Box-the-compass/J/box-the-compass-1.j
@ -0,0 +1,8 @@
+require'strings'
+subs=: 'N,north,S,south,E,east,W,west,b, by ,'
+dirs=: subs (toupper@{., }.)@rplc~L:1 0&(<;._2) 0 :0 -. ' ',LF
+  N,NbE,N-NE,NEbN,NE,NEbE,E-NE,EbN,E,EbS,E-SE,SEbE,SE,SEbS,S-SE,SbE,
+  S,SbW,S-SW,SWbS,SW,SWbW,W-SW,WbS,W,WbN,W-NW,NWbW,NW,NWbN,N-NW,NbW,
+)
+indice=: 32 | 0.5 <.@+ %&11.25
+deg2pnt=: dirs {~ indice
--- a/Task/Box-the-compass/J/box-the-compass-2.j
+++ b/Task/Box-the-compass/J/box-the-compass-2.j
@ -0,0 +1,6 @@
+   i.10
+0 1 2 3 4 5 6 7 8 9
+   deg2pnt i.10
+┌─────┬─────┬─────┬─────┬─────┬─────┬─────────────┬─────────────┬─────────────┬─────────────┐
+│North│North│North│North│North│North│North by east│North by east│North by east│North by east│
+└─────┴─────┴─────┴─────┴─────┴─────┴─────────────┴─────────────┴─────────────┴─────────────┘
--- a/Task/Box-the-compass/J/box-the-compass-3.j
+++ b/Task/Box-the-compass/J/box-the-compass-3.j
@ -0,0 +1,34 @@
+   (":@>:@indice,.' ',.>@deg2pnt,.' ',.":@,.)(*&11.25 + 5.62 * 0 1 _1 {~ 3&|) i.33
+1  North                   0
+2  North by east       16.87
+3  North-northeast     16.88
+4  Northeast by north  33.75
+5  Northeast           50.62
+6  Northeast by east   50.63
+7  East-northeast       67.5
+8  East by north       84.37
+9  East                84.38
+10 East by south      101.25
+11 East-southeast     118.12
+12 Southeast by east  118.13
+13 Southeast             135
+14 Southeast by south 151.87
+15 South-southeast    151.88
+16 South by east      168.75
+17 South              185.62
+18 South by west      185.63
+19 South-southwest     202.5
+20 Southwest by south 219.37
+21 Southwest          219.38
+22 Southwest by west  236.25
+23 West-southwest     253.12
+24 West by south      253.13
+25 West                  270
+26 West by north      286.87
+27 West-northwest     286.88
+28 Northwest by west  303.75
+29 Northwest          320.62
+30 Northwest by north 320.63
+31 North-northwest     337.5
+32 North by west      354.37
+1  North              354.38
--- a/Task/Box-the-compass/Java/box-the-compass.java
+++ b/Task/Box-the-compass/Java/box-the-compass.java
@ -0,0 +1,66 @@
+enum Compass {
+    N, NbE, NNE, NEbN, NE, NEbE, ENE, EbN,
+    E, EbS, ESE, SEbE, SE, SEbS, SSE, SbE,
+    S, SbW, SSW, SWbS, SW, SWbW, WSW, WbS,
+    W, WbN, WNW, NWbW, NW, NWbN, NNW, NbW;
+
+    float midpoint() {
+        float midpoint = (360 / 32f) * ordinal();
+        return midpoint == 0 ? 360 : midpoint;
+    }
+
+    float[] bounds() {
+        float bound = (360 / 32f) / 2f;
+        float midpoint = midpoint();
+        float boundA = midpoint - bound;
+        float boundB = midpoint + bound;
+        if (boundB > 360) boundB -= 360;
+        return new float[] { boundA, boundB };
+    }
+
+    static Compass parse(float degrees) {
+        float[] bounds;
+        float[] boundsN = N.bounds();
+        for (Compass value : Compass.values()) {
+            bounds = value.bounds();
+            if (degrees >= boundsN[0] || degrees < boundsN[1])
+                return N;
+            if (degrees >= bounds[0] && degrees < bounds[1])
+                return value;
+        }
+        return null;
+    }
+
+    @Override
+    public String toString() {
+        String[] strings = new String[name().length()];
+        int index = 0;
+        for (char letter : name().toCharArray()) {
+            switch (letter) {
+                case 'N' -> strings[index] = "north";
+                case 'E' -> strings[index] = "east";
+                case 'S' -> strings[index] = "south";
+                case 'W' -> strings[index] = "west";
+                case 'b' -> strings[index] = "by";
+            }
+            index++;
+        }
+        String string
+            = strings[0].substring(0, 1).toUpperCase() +
+              strings[0].substring(1);
+        switch (strings.length) {
+            case 2 -> string += strings[1];
+            case 3 -> {
+                if (strings[1].equals("by")) {
+                    string += " %s %s".formatted(strings[1], strings[2]);
+                } else {
+                    string += "-%s%s".formatted(strings[1], strings[2]);
+                }
+            }
+            case 4 -> {
+                string += String.join(" ", strings[1], strings[2], strings[3]);
+            }
+        }
+        return string;
+    }
+}
--- a/Task/Box-the-compass/JavaScript/box-the-compass-1.js
+++ b/Task/Box-the-compass/JavaScript/box-the-compass-1.js
@ -0,0 +1,45 @@
+function createRow(i, point, heading) {
+    var tr = document.createElement('tr'),
+        td;
+
+    td = document.createElement('td');
+    td.appendChild(document.createTextNode(i));
+    tr.appendChild(td);
+
+    td = document.createElement('td');
+    point = point.substr(0, 1).toUpperCase() + point.substr(1);
+    td.appendChild(document.createTextNode(point));
+    tr.appendChild(td);
+
+    td = document.createElement('td');
+    td.appendChild(document.createTextNode(heading));
+    tr.appendChild(td);
+
+    return tr;
+}
+
+function getPoint(i) {
+    var j = i % 8,
+        i = Math.floor(i / 8) % 4,
+        cardinal = ['north', 'east', 'south', 'west'],
+        pointDesc = ['1', '1 by 2', '1-C', 'C by 1', 'C', 'C by 2', '2-C', '2 by 1'],
+        str1, str2, strC;
+
+    str1 = cardinal[i];
+    str2 = cardinal[(i + 1) % 4];
+    strC = (str1 === 'north' || str1 === 'south') ? str1 + str2 : str2 + str1;
+    return pointDesc[j].replace('1', str1).replace('2', str2).replace('C', strC);
+}
+
+var i,
+    heading,
+    table = document.createElement('table'),
+    tbody = document.createElement('tbody'),
+    tr;
+for (i = 0; i <= 32; i += 1) {
+    heading = i * 11.25 + [0, 5.62, -5.62][i % 3];
+    tr = createRow(i % 32 + 1, getPoint(i), heading + '°');
+    tbody.appendChild(tr);
+}
+table.appendChild(tbody);
+document.body.appendChild(table);
--- a/Task/Box-the-compass/JavaScript/box-the-compass-2.js
+++ b/Task/Box-the-compass/JavaScript/box-the-compass-2.js
@ -0,0 +1,239 @@
+(() => {
+    'use strict';
+
+    // GENERIC FUNCTIONS
+
+    // toTitle :: String -> String
+    let toTitle = s => s.length ? (s[0].toUpperCase() + s.slice(1)) : '';
+
+    // COMPASS DATA AND FUNCTIONS
+
+    // Scale invariant keys for points of the compass
+    // (allows us to look up a translation for one scale of compass (32 here)
+    // for use in another size of compass (8 or 16 points)
+    // (Also semi-serviceable as more or less legible keys without translation)
+
+    // compassKeys :: Int -> [String]
+    let compassKeys = depth => {
+        let urCompass = ['N', 'S', 'N'],
+            subdivision = (compass, n) => n <= 1 ? (
+                compass
+            ) : subdivision( // Borders between N and S engender E and W.
+                // other new boxes concatenate their parent keys.
+                compass.reduce((a, x, i, xs) => {
+                    if (i > 0) {
+                        return (n === depth) ? (
+                            a.concat([x === 'N' ? 'W' : 'E'], x)
+                        ) : a.concat([xs[i - 1] + x, x]);
+                    } else return a.concat(x);
+                }, []),
+                n - 1
+            );
+        return subdivision(urCompass, depth)
+            .slice(0, -1);
+    };
+
+    // https://zh.wikipedia.org/wiki/%E7%BD%97%E7%9B%98%E6%96%B9%E4%BD%8D
+    let lstLangs = [{
+        'name': 'English',
+        expansions: {
+            N: 'north',
+            S: 'south',
+            E: 'east',
+            W: 'west',
+            b: ' by ',
+            '-': '-'
+        },
+        'N': 'N',
+        'NNNE': 'NbE',
+        'NNE': 'N-NE',
+        'NNENE': 'NEbN',
+        'NE': 'NE',
+        'NENEE': 'NEbE',
+        'NEE': 'E-NE',
+        'NEEE': 'EbN',
+        'E': 'E',
+        'EEES': 'EbS',
+        'EES': 'E-SE',
+        'EESES': 'SEbE',
+        'ES': 'SE',
+        'ESESS': 'SEbS',
+        'ESS': 'S-SE',
+        'ESSS': 'SbE',
+        'S': 'S',
+        'SSSW': 'SbW',
+        'SSW': 'S-SW',
+        'SSWSW': 'SWbS',
+        'SW': 'SW',
+        'SWSWW': 'SWbW',
+        'SWW': 'W-SW',
+        'SWWW': 'WbS',
+        'W': 'W',
+        'WWWN': 'WbN',
+        'WWN': 'W-NW',
+        'WWNWN': 'NWbW',
+        'WN': 'NW',
+        'WNWNN': 'NWbN',
+        'WNN': 'N-NW',
+        'WNNN': 'NbW'
+    }, {
+        'name': 'Chinese',
+        'N': '北',
+        'NNNE': '北微东',
+        'NNE': '东北偏北',
+        'NNENE': '东北微北',
+        'NE': '东北',
+        'NENEE': '东北微东',
+        'NEE': '东北偏东',
+        'NEEE': '东微北',
+        'E': '东',
+        'EEES': '东微南',
+        'EES': '东南偏东',
+        'EESES': '东南微东',
+        'ES': '东南',
+        'ESESS': '东南微南',
+        'ESS': '东南偏南',
+        'ESSS': '南微东',
+        'S': '南',
+        'SSSW': '南微西',
+        'SSW': '西南偏南',
+        'SSWSW': '西南微南',
+        'SW': '西南',
+        'SWSWW': '西南微西',
+        'SWW': '西南偏西',
+        'SWWW': '西微南',
+        'W': '西',
+        'WWWN': '西微北',
+        'WWN': '西北偏西',
+        'WWNWN': '西北微西',
+        'WN': '西北',
+        'WNWNN': '西北微北',
+        'WNN': '西北偏北',
+        'WNNN': '北微西'
+    }];
+
+    // pointIndex :: Int -> Num -> Int
+    let pointIndex = (power, degrees) => {
+        let nBoxes = (power ? Math.pow(2, power) : 32);
+        return Math.ceil(
+            (degrees + (360 / (nBoxes * 2))) % 360 * nBoxes / 360
+        ) || 1;
+    };
+
+    // pointNames :: Int -> Int -> [String]
+    let pointNames = (precision, iBox) => {
+        let k = compassKeys(precision)[iBox - 1];
+        return lstLangs.map(dctLang => {
+            let s = dctLang[k] || k, // fallback to key if no translation
+                dctEx = dctLang.expansions;
+
+            return dctEx ? toTitle(s.split('')
+                    .map(c => dctEx[c])
+                    .join(precision > 5 ? ' ' : ''))
+                .replace(/  /g, ' ') : s;
+        });
+    };
+
+    // maximumBy :: (a -> a -> Ordering) -> [a] -> a
+    let maximumBy = (f, xs) =>
+        xs.reduce((a, x) => a === undefined ? x : (
+            f(x, a) > 0 ? x : a
+        ), undefined);
+
+    // justifyLeft :: Int -> Char -> Text -> Text
+    let justifyLeft = (n, cFiller, strText) =>
+        n > strText.length ? (
+            (strText + replicate(n, cFiller)
+                .join(''))
+            .substr(0, n)
+        ) : strText;
+
+    // justifyRight :: Int -> Char -> Text -> Text
+    let justifyRight = (n, cFiller, strText) =>
+        n > strText.length ? (
+            (replicate(n, cFiller)
+                .join('') + strText)
+            .slice(-n)
+        ) : strText;
+
+    // replicate :: Int -> a -> [a]
+    let replicate = (n, a) => {
+        let v = [a],
+            o = [];
+        if (n < 1) return o;
+        while (n > 1) {
+            if (n & 1) o = o.concat(v);
+            n >>= 1;
+            v = v.concat(v);
+        }
+        return o.concat(v);
+    };
+
+    // transpose :: [[a]] -> [[a]]
+    let transpose = xs =>
+        xs[0].map((_, iCol) => xs.map((row) => row[iCol]));
+
+    // length :: [a] -> Int
+    // length :: Text -> Int
+    let length = xs => xs.length;
+
+    // compareByLength = (a, a) -> (-1 | 0 | 1)
+    let compareByLength = (a, b) => {
+        let [na, nb] = [a, b].map(length);
+        return na < nb ? -1 : na > nb ? 1 : 0;
+    };
+
+    // maxLen :: [String] -> Int
+    let maxLen = xs => maximumBy(compareByLength, xs)
+        .length;
+
+    // compassTable :: Int -> [Num] -> Maybe String
+    let compassTable = (precision, xs) => {
+        if (precision < 1) return undefined;
+        else {
+            let intPad = 2;
+
+            let lstIndex = xs.map(x => pointIndex(precision, x)),
+                lstStrIndex = lstIndex.map(x => x.toString()),
+                nIndexWidth = maxLen(lstStrIndex),
+                colIndex = lstStrIndex.map(
+                    x => justifyRight(nIndexWidth, ' ', x)
+                );
+
+            let lstAngles = xs.map(x => x.toFixed(2) + '°'),
+                nAngleWidth = maxLen(lstAngles) + intPad,
+                colAngles = lstAngles.map(x => justifyRight(nAngleWidth, ' ', x));
+
+            let lstTrans = transpose(
+                    lstIndex.map(i => pointNames(precision, i))
+                ),
+                lstTransWidths = lstTrans.map(x => maxLen(x) + 2),
+                colsTrans = lstTrans
+                .map((lstLang, i) => lstLang
+                    .map(x => justifyLeft(lstTransWidths[i], ' ', x))
+                );
+
+            return transpose([colIndex]
+                    .concat([colAngles], [replicate(lstIndex.length, "  ")])
+                    .concat(colsTrans))
+                .map(x => x.join(''))
+                .join('\n');
+        }
+    }
+
+    // TEST
+    let xs = [0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37,
+        84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75,
+        185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13,
+        270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37,
+        354.38
+    ];
+
+    // If we supply other precisions, like 4 or 6, (2^n -> 16 or 64 boxes)
+    // the bearings will be divided amongst smaller or larger numbers of boxes,
+    // either using name translations retrieved by the generic hash
+    // or using the hash itself (combined with any expansions)
+    // to substitute for missing names for very finely divided boxes.
+
+    return compassTable(5, xs); // 2^5 -> 32 boxes
+})();
--- a/Task/Box-the-compass/Jq/box-the-compass.jq
+++ b/Task/Box-the-compass/Jq/box-the-compass.jq
@ -0,0 +1,67 @@
+# Input: the input heading given as a number in degrees.
+# Output: the corresponding integer index (from 0 to 31 inclusive)
+# into the table, compassPoint, of compass point names.
+def cpx:
+  (((. / 11.25) + 0.5)|floor % 32)
+  | if . < 0 then . + 32
+    else .
+    end;
+
+# Compass point names
+def compassPoint: [
+    "North",
+    "North by east",
+    "North-northeast",
+    "Northeast by north",
+    "Northeast",
+    "Northeast by east",
+    "East-northeast",
+    "East by north",
+    "East",
+    "East by south",
+    "East-southeast",
+    "Southeast by east",
+    "Southeast",
+    "Southeast by south",
+    "South-southeast",
+    "South by east",
+    "South",
+    "South by west",
+    "South-southwest",
+    "Southwest by south",
+    "Southwest",
+    "Southwest by west",
+    "West-southwest",
+    "West by south",
+    "West",
+    "West by north",
+    "West-northwest",
+    "Northwest by west",
+    "Northwest",
+    "Northwest by north",
+    "North-northwest",
+    "North by west"
+];
+
+### The task
+# Input: heading in degrees
+def degreesToCompassPoint:
+  compassPoint[cpx];
+
+def r: [
+    0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5,
+    84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75,
+    185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
+    286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38
+];
+
+def lpad($len): tostring | ($len - length) as $l | (" " * $l)[:$l] + .;
+
+"Index  Compass point        Heading",
+(r as $r
+ | range(0; $r|length)
+ | $r[.] as $h
+ | ((.%32) + 1) as $index                  # index as per requirements
+ | ($h | degreesToCompassPoint) as $d
+ | "\($index|lpad(3)) \($d|lpad(20))   \($h)°"
+)
--- a/Task/Box-the-compass/Julia/box-the-compass.julia
+++ b/Task/Box-the-compass/Julia/box-the-compass.julia
@ -0,0 +1,23 @@
+using Printf
+
+function degree2compasspoint(d::Float64)
+    majors = ("north", "east", "south", "west", "north", "east", "south", "west")
+    quarter1 = ("N", "N by E", "N-NE", "NE by N", "NE", "NE by E", "E-NE", "E by N")
+    quarter2 = map(p -> replace(p, "NE" => "EN"), quarter1)
+
+    d = d % 360 + 360 / 64
+    imajor, minor = divrem(d, 90)
+    iminor = div(minor * 4, 45)
+    imajor += 1
+    iminor += 1
+    p1, p2 = majors[imajor:imajor+1]
+    q = p1 in ("north", "south") ? quarter1 : quarter2
+    titlecase(replace(replace(q[iminor], 'N' => p1), 'E' => p2))
+end
+
+for i in 0:32
+    d = i * 11.25
+    i % 3 == 1 && (d += 5.62)
+    i % 3 == 2 && (d -= 5.62)
+    @printf("%2i %-17s %10.2f°\n", i % 32 + 1, degree2compasspoint(d), d)
+end
--- a/Task/Box-the-compass/K/box-the-compass-1.k
+++ b/Task/Box-the-compass/K/box-the-compass-1.k
@ -0,0 +1,16 @@
+   d:("N;Nbe;N-ne;Nebn;Ne;Nebe;E-ne;Ebn;")
+   d,:("E;Ebs;E-se;Sebe;Se;Sebs;S-se;Sbe;")
+   d,:("S;Sbw;S-sw;Swbs;Sw;Swbw;W-sw;Wbs;")
+   d,:("W;Wbn;W-nw;Nwbw;Nw;Nwbn;N-nw;Nbw;N")
+
+   split:{1_'(&x=y)_ x:y,x}
+   dd:split[d;";"]
+
+   / lookup table
+   s1:"NEWSnewsb-"
+   s2:("North";"East";"West";"South";"north";"east";"west";"south";" by ";"-")
+   c:.({`$x}'s1),'{`$x}'s2   / create the dictionary
+   cc:{,/{$c[`$$x]}'x}       / lookup function
+
+   / calculate the degrees
+   f:{m:x!3;(11.25*x)+:[1=m;+5.62;2=m;-5.62;0]}
--- a/Task/Box-the-compass/K/box-the-compass-2.k
+++ b/Task/Box-the-compass/K/box-the-compass-2.k
@ -0,0 +1,34 @@
+   `0:{((2$(1+x!32)),"  ",(-19$cc@dd[x]),(6.2$f@x))}'!#dd
+ 1  North                0.00
+ 2  North by east       16.87
+ 3  North-northeast     16.88
+ 4  Northeast by north  33.75
+ 5  Northeast           50.62
+ 6  Northeast by east   50.63
+ 7  East-northeast      67.50
+ 8  East by north       84.37
+ 9  East                84.38
+10  East by south      101.25
+11  East-southeast     118.12
+12  Southeast by east  118.13
+13  Southeast          135.00
+14  Southeast by south 151.87
+15  South-southeast    151.88
+16  South by east      168.75
+17  South              185.62
+18  South by west      185.63
+19  South-southwest    202.50
+20  Southwest by south 219.37
+21  Southwest          219.38
+22  Southwest by west  236.25
+23  West-southwest     253.12
+24  West by south      253.13
+25  West               270.00
+26  West by north      286.87
+27  West-northwest     286.88
+28  Northwest by west  303.75
+29  Northwest          320.62
+30  Northwest by north 320.63
+31  North-northwest    337.50
+32  North by west      354.37
+ 1  North              354.38
--- a/Task/Box-the-compass/Kotlin/box-the-compass.kotlin
+++ b/Task/Box-the-compass/Kotlin/box-the-compass.kotlin
@ -0,0 +1,37 @@
+// version 1.1.2
+
+fun expand(cp: String): String {
+    val sb = StringBuilder()
+    for (c in cp) {
+        sb.append(when (c) {
+            'N'  -> "north"
+            'E'  -> "east"
+            'S'  -> "south"
+            'W'  -> "west"
+            'b'  -> " by "
+            else -> "-"
+        })
+    }
+    return sb.toString().capitalize()
+}
+
+fun main(args: Array<String>) {
+    val cp = arrayOf(
+        "N", "NbE", "N-NE", "NEbN", "NE", "NEbE", "E-NE", "EbN",
+        "E", "EbS", "E-SE", "SEbE", "SE", "SEbS", "S-SE", "SbE",
+        "S", "SbW", "S-SW", "SWbS", "SW", "SWbW", "W-SW", "WbS",
+        "W", "WbN", "W-NW", "NWbW", "NW", "NWbN", "N-NW", "NbW"
+    )
+    println("Index  Degrees  Compass point")
+    println("-----  -------  -------------")
+    val f = "%2d     %6.2f   %s"
+    for (i in 0..32) {
+        val index  = i % 32
+        var heading = i * 11.25
+        when (i % 3) {
+            1 -> heading += 5.62
+            2 -> heading -= 5.62
+        }
+        println(f.format(index + 1, heading, expand(cp[index])))
+    }
+}
--- a/Task/Box-the-compass/LLVM/box-the-compass.llvm
+++ b/Task/Box-the-compass/LLVM/box-the-compass.llvm
@ -0,0 +1,69 @@
+; This is not strictly LLVM, as it uses the C library function "printf".
+; LLVM does not provide a way to print values, so the alternative would be
+; to just load the string into memory, and that would be boring.
+
+; Additional comments have been inserted, as well as changes made from the output produced by clang such as putting more meaningful labels for the jumps
+
+;--- The declarations for the external C functions
+declare i32 @printf(i8*, ...)
+
+$"COMPASS_STR" = comdat any
+$"OUTPUT_STR" = comdat any
+
+@main.degrees = private unnamed_addr constant [33 x double] [double 0.000000e+00, double 1.687000e+01, double 1.688000e+01, double 3.375000e+01, double 5.062000e+01, double 5.063000e+01, double 6.750000e+01, double 8.437000e+01, double 0x40551851EB851EB8, double 1.012500e+02, double 1.181200e+02, double 1.181300e+02, double 1.350000e+02, double 1.518700e+02, double 1.518800e+02, double 1.687500e+02, double 1.856200e+02, double 1.856300e+02, double 2.025000e+02, double 2.193700e+02, double 2.193800e+02, double 2.362500e+02, double 2.531200e+02, double 2.531300e+02, double 2.700000e+02, double 2.868700e+02, double 2.868800e+02, double 3.037500e+02, double 3.206200e+02, double 3.206300e+02, double 3.375000e+02, double 3.543700e+02, double 3.543800e+02], align 16
+@"COMPASS_STR" = linkonce_odr unnamed_addr constant [727 x i8] c"North                 North by east         North-northeast       Northeast by north    Northeast             Northeast by east     East-northeast        East by north         East                  East by south         East-southeast        Southeast by east     Southeast             Southeast by south    South-southeast       South by east         South                 South by west         South-southwest       Southwest by south    Southwest             Southwest by west     West-southwest        West by south         West                  West by north         West-northwest        Northwest by west     Northwest             Northwest by north    North-northwest       North by west         North                 \00", comdat, align 1
+@"OUTPUT_STR" = linkonce_odr unnamed_addr constant [19 x i8] c"%2d  %.22s  %6.2f\0A\00", comdat, align 1
+
+; Function Attrs: noinline nounwind optnone uwtable
+define i32 @main() #0 {
+  %1 = alloca i32, align 4                  ;-- allocate i
+  %2 = alloca i32, align 4                  ;-- allocate j
+  %3 = alloca [33 x double], align 16       ;-- allocate degrees
+  %4 = alloca i8*, align 8                  ;-- allocate names
+  %5 = bitcast [33 x double]* %3 to i8*
+  call void @llvm.memcpy.p0i8.p0i8.i64(i8* %5, i8* bitcast ([33 x double]* @main.degrees to i8*), i64 264, i32 16, i1 false)
+  store i8* getelementptr inbounds ([727 x i8], [727 x i8]* @"COMPASS_STR", i32 0, i32 0), i8** %4, align 8
+  store i32 0, i32* %1, align 4             ;-- i = 0
+  br label %loop
+
+loop:
+  %6 = load i32, i32* %1, align 4           ;-- load i
+  %7 = icmp slt i32 %6, 33                  ;-- i < 33
+  br i1 %7, label %loop_body, label %exit
+
+loop_body:
+  %8 = load i32, i32* %1, align 4           ;-- load i
+  %9 = sext i32 %8 to i64                   ;-- sign extend i
+  %10 = getelementptr inbounds [33 x double], [33 x double]* %3, i64 0, i64 %9  ;-- calculate index of degrees[i]
+  %11 = load double, double* %10, align 8   ;-- load degrees[i]
+  %12 = fmul double %11, 3.200000e+01       ;-- degrees[i] * 32
+  %13 = fdiv double %12, 3.600000e+02       ;-- degrees[i] * 32 / 360.0
+  %14 = fadd double 5.000000e-01, %13       ;-- 0.5 + degrees[i] * 32 / 360.0
+  %15 = fptosi double %14 to i32            ;-- convert floating point to integer
+  store i32 %15, i32* %2, align 4           ;-- write result to j
+
+  %16 = load i8*, i8** %4, align 8          ;-- load names
+  %17 = load i32, i32* %2, align 4          ;-- load j
+  %18 = srem i32 %17, 32                    ;-- j % 32
+  %19 = mul nsw i32 %18, 22                 ;-- (j % 32) * 22
+  %20 = sext i32 %19 to i64                 ;-- sign extend the result
+  %21 = getelementptr inbounds i8, i8* %16, i64 %20 ;-- load names at the calculated offset
+  %22 = load i32, i32* %2, align 4          ;-- load j
+  %23 = srem i32 %22, 32                    ;-- j % 32
+  %24 = add nsw i32 %23, 1                  ;-- (j % 32) + 1
+  %25 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([19 x i8], [19 x i8]* @"OUTPUT_STR", i32 0, i32 0), i32 %24, i8* %21, double %11)
+
+  %26 = load i32, i32* %1, align 4          ;-- load i
+  %27 = add nsw i32 %26, 1                  ;-- increment i
+  store i32 %27, i32* %1, align 4           ;-- store i
+  br label %loop
+
+exit:
+  ret i32 0
+}
+
+; Function Attrs: argmemonly nounwind
+declare void @llvm.memcpy.p0i8.p0i8.i64(i8* nocapture writeonly, i8* nocapture readonly, i64, i32, i1) #1
+
+attributes #0 = { noinline nounwind optnone uwtable "correctly-rounded-divide-sqrt-fp-math"="false" "disable-tail-calls"="false" "less-precise-fpmad"="false" "no-frame-pointer-elim"="false" "no-infs-fp-math"="false" "no-jump-tables"="false" "no-nans-fp-math"="false" "no-signed-zeros-fp-math"="false" "no-trapping-math"="false" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+fxsr,+mmx,+sse,+sse2,+x87" "unsafe-fp-math"="false" "use-soft-float"="false" }
+attributes #1 = { argmemonly nounwind }
--- a/Task/Box-the-compass/Langur/box-the-compass.langur
+++ b/Task/Box-the-compass/Langur/box-the-compass.langur
@ -0,0 +1,22 @@
+val .box = ["North", "North by east", "North-northeast", "Northeast by north",
+    "Northeast", "Northeast by east", "East-northeast", "East by north",
+    "East", "East by south", "East-southeast", "Southeast by east",
+    "Southeast", "Southeast by south", "South-southeast", "South by east",
+    "South", "South by west", "South-southwest", "Southwest by south",
+    "Southwest", "Southwest by west", "West-southwest", "West by south",
+    "West", "West by north", "West-northwest", "Northwest by west",
+    "Northwest", "Northwest by north", "North-northwest", "North by west"]
+
+val .angles = [
+    0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38,
+    101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62,
+    185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
+    286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]
+
+writeln "index   degrees    compass point"
+writeln "-----   -------    -------------"
+
+for .phi in .angles {
+    val .i = truncate(.phi x 32 / 360 + 0.5) rem 32 + 1
+    writeln $"\.i:5;    \.phi:r2:6;    \.box[.i];"
+}
--- a/Task/Box-the-compass/Lasso/box-the-compass.lasso
+++ b/Task/Box-the-compass/Lasso/box-the-compass.lasso
@ -0,0 +1,52 @@
+define pointsarray() => {
+	local(points = array)
+	loop(-from=0,-to=32) => {
+		local(heading = loop_count * 11.25)
+		if(loop_count % 3 == 1) => {
+			#heading += 5.62
+		else(loop_count % 3 == 2)
+			#heading -= 5.62
+		}
+		#points->insert(#heading)
+	}
+	return #points
+}
+define compassShort => array(
+	'N','Nbe','N-ne','Nebn','Ne','Nebe','E-ne','Ebn',
+	'E','Ebs','E-se','Sebe','Se','Sebs','S-se','Sbe',
+	'S','Sbw','S-sw','Swbs','Sw','Swbw','W-sw','Wbs',
+	'W','Wbn','W-nw','Nwbw','Nw','Nwbn','N-nw','Nbw', 'N')
+define compassLong(short::string) => {
+	local(o = string)
+	with i in #short->values do => { #o->append(compassLongProcessor(#i)) }
+	return #o
+}
+define compassLongProcessor(char::string) => {
+	#char == 'N' ? return #char + 'orth'
+	#char == 'S' ? return #char + 'outh'
+	#char == 'E' ? return #char + 'ast'
+	#char == 'W' ? return #char + 'est'
+	#char == 'b' ? return ' by '
+	#char == '-' ? return '-'	
+}
+// test output points as decimals
+//pointsarray
+
+// test output the array of text values
+//compassShort
+
+// test output the long names of the text values
+//with s in compassShort do => {^ compassLong(#s) + '\r' ^}
+
+'angle  | box  | compass point
+---------------------------------
+'
+local(counter = 0)
+with p in pointsarray do => {^
+	local(pformatted = #p->asString(-precision=2))
+	while(#pformatted->size < 6) => { #pformatted->append(' ') }
+	#counter += 1
+	#counter > 32 ? #counter = 1
+	#pformatted + ' |  ' + (#counter < 10 ? ' ') + #counter + '  | ' + compassLong(compassShort->get(#counter)) + '\r'
+	
+^}
--- a/Task/Box-the-compass/Liberty-BASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/Liberty-BASIC/box-the-compass.basic
@ -0,0 +1,34 @@
+dim point$( 32)
+
+for i =1 to 32
+    read d$: point$( i) =d$
+next i
+
+for i = 0 to 32
+    heading = i *11.25
+    if ( i mod 3) =1 then
+        heading = heading +5.62
+    else
+        if ( i mod 3) =2 then heading = heading -5.62
+    end if
+    ind = i mod 32 +1
+    print ind, compasspoint$( heading), heading
+next i
+
+end
+
+function compasspoint$( h)
+    x = h /11.25 +1.5
+    if (x >=33.0) then x =x -32.0
+    compasspoint$ = point$( int( x))
+end function
+
+data  "North             ", "North by east     ", "North-northeast   "
+data  "Northeast by north", "Northeast         ", "Northeast by east ", "East-northeast    "
+data  "East by north     ", "East              ", "East by south     ", "East-southeast    "
+data  "Southeast by east ", "Southeast         ", "Southeast by south", "South-southeast   "
+data  "South by east     ", "South             ", "South by west     ", "South-southwest   "
+data  "Southwest by south", "Southwest         ", "Southwest by west ", "West-southwest    "
+data  "West by south     ", "West              ", "West by north     ", "West-northwest    "
+data  "Northwest by west ", "Northwest         ", "Northwest by north", "North-northwest   "
+data  "North by west
--- a/Task/Box-the-compass/Logo/box-the-compass.logo
+++ b/Task/Box-the-compass/Logo/box-the-compass.logo
@ -0,0 +1,64 @@
+; List of abbreviated compass point labels
+make "compass_points [ N NbE N-NE NEbN NE NEbE E-NE EbN
+                       E EbS E-SE SEbE SE SEbS S-SE SbE
+                       S SbW S-SW SWbS SW SWbW W-SW WbS
+                       W WbN W-NW NWbW NW NWbN N-NW NbW ]
+
+; List of angles to test
+make "test_angles [  0.00  16.87  16.88  33.75  50.62  50.63  67.50
+                    84.37  84.38 101.25 118.12 118.13 135.00 151.87
+                   151.88 168.75 185.62 185.63 202.50 219.37 219.38
+                   236.25 253.12 253.13 270.00 286.87 286.88 303.75
+                   320.62 320.63 337.50 354.37 354.38 ]
+
+; make comparisons case-sensitive
+make "caseignoredp "false
+
+; String utilities: search and replace
+to replace_in :src :from :to
+  output map [ ifelse equalp ? :from [:to] [?] ] :src
+end
+
+; pad with spaces
+to pad :string :length
+  output cascade [lessp :length count ?] [word ? "\ ] :string
+end
+
+; capitalize first letter
+to capitalize :string
+  output word (uppercase first :string) butfirst :string
+end
+
+; convert compass point abbreviation to full text of label
+to expand_point :abbr
+  foreach [[N north] [E east] [S south] [W west] [b \ by\ ]] [
+    make "abbr replace_in :abbr (first ?) (last ?)
+  ]
+  output capitalize :abbr
+end
+
+; modulus function that returns 1..N instead of 0..N-1
+to adjusted_modulo :n :d
+  output sum 1 modulo (difference :n 1) :d
+end
+
+; convert a compass angle from degrees into a box index (1..32)
+to compass_point :degrees
+  make "degrees modulo :degrees 360
+  output adjusted_modulo (sum 1 int quotient (sum :degrees 5.625) 11.25) 32
+end
+
+;  Now output the table of test data
+print (sentence (pad "Degrees 7) "\| (pad "Closest\ Point 18) "\| "Index )
+foreach :test_angles [
+  local "index
+  make "index compass_point ?
+  local "abbr
+  make "abbr item :index :compass_points
+  local "label
+  make "label expand_point :abbr
+  print (sentence (form ? 7 2) "\| (pad :label 18) "\| (form :index 2 0) )
+]
+
+; and exit
+bye
--- a/Task/Box-the-compass/Lua/box-the-compass.lua
+++ b/Task/Box-the-compass/Lua/box-the-compass.lua
@ -0,0 +1,49 @@
+-- List of abbreviated compass point labels
+compass_points = { "N", "NbE", "N-NE", "NEbN", "NE", "NEbE", "E-NE", "EbN",
+                   "E", "EbS", "E-SE", "SEbE", "SE", "SEbS", "S-SE", "SbE",
+                   "S", "SbW", "S-SW", "SWbS", "SW", "SWbW", "W-SW", "WbS",
+                   "W", "WbN", "W-NW", "NWbW", "NW", "NWbN", "N-NW", "NbW" }
+
+-- List of angles to test
+test_angles = {  0.00,  16.87,  16.88,  33.75,  50.62,  50.63,  67.50,
+                84.37,  84.38, 101.25, 118.12, 118.13, 135.00, 151.87,
+               151.88, 168.75, 185.62, 185.63, 202.50, 219.37, 219.38,
+               236.25, 253.12, 253.13, 270.00, 286.87, 286.88, 303.75,
+               320.62, 320.63, 337.50, 354.37, 354.38 }
+
+
+-- capitalize a string
+function capitalize(s)
+  return s:sub(1,1):upper() .. s:sub(2)
+end
+
+-- convert compass point abbreviation to full text of label
+function expand_point(abbr)
+  for from, to in pairs( { N="north", E="east", S="south", W="west",
+                             b=" by " }) do
+    abbr = abbr:gsub(from, to)
+  end
+  return capitalize(abbr)
+end
+
+-- modulus function that returns 1..N instead of 0..N-1
+function adjusted_modulo(n, d)
+  return 1 + (n - 1) % d
+end
+
+-- convert a compass angle from degrees into a box index (1..32)
+function compass_point(degrees)
+  degrees = degrees % 360
+  return adjusted_modulo(1 + math.floor( (degrees+5.625) / 11.25), 32)
+end
+
+--  Now output the table of test data
+header_format = "%-7s | %-18s | %s"
+row_format = "%7.2f | %-18s | %2d"
+print(header_format:format("Degrees", "Closest Point", "Index"))
+for i, angle in ipairs(test_angles) do
+  index = compass_point(angle)
+  abbr  = compass_points[index]
+  label  = expand_point(abbr)
+  print(row_format:format(angle, label, index))
+end
--- a/Task/Box-the-compass/M2000-Interpreter/box-the-compass.m2000
+++ b/Task/Box-the-compass/M2000-Interpreter/box-the-compass.m2000
@ -0,0 +1,27 @@
+Module CheckIt {
+      Locale 1033   'change decimal point char to dot.
+      Form 80,50    ' set console to 80 characters by 50 lines
+      \\ Function heading() get a positive double as degrees and return the  compass index (1 for North)
+      Function heading(d) {
+            d1=d div 11.25
+            if d1 mod 3= 1 then d+=5.62 :d1=d div 11.25
+            =d1 mod 32 +1
+      }
+      Dim wind$(1 to 32)
+      wind$(1)="North", "North by east", "North-northeast", "Northeast by north", "Northeast"
+      wind$(6)="Northeast by east", "East-northeast", "East by north", "East", "East by south", "East-southeast"
+      wind$(12)="Southeast by east", "Southeast", "Southeast by south", "South-southeast", "South by east", "South"
+      wind$(18)="South by west", "South-southwest", "Southwest by south", "Southwest", "Southwest by west", "West-southwest"
+      wind$(24)="West by south", "West", "West by north", "West-northwest", "Northwest by west", "Northwest", "Northwest by north"
+      wind$(31)="North-northwest", "North by west"
+      oldvalue=-2
+      newvalue=2
+      Print " angle | box | compass point"
+      Print "-------+-----+---------------------"
+      For i=0 to 360 step 0.005
+            newvalue=heading(i)
+            if (newvalue mod 3) =2 then i+=5.62: newvalue=heading(i)
+            if oldvalue<>newvalue then Print format$("{0:2:-6}°|  {1::-2} | {2}",i, newvalue, wind$(newvalue)) : oldvalue=newvalue : refresh
+      Next i
+}
+CheckIt
--- a/Task/Box-the-compass/MATLAB/box-the-compass.m
+++ b/Task/Box-the-compass/MATLAB/box-the-compass.m
@ -0,0 +1,3 @@
+function b = compassbox(d)
+    b = ceil(mod(d+360/64,360)*32/360);
+end;
--- a/Task/Box-the-compass/MUMPS/box-the-compass.mumps
+++ b/Task/Box-the-compass/MUMPS/box-the-compass.mumps
@ -0,0 +1,34 @@
+BOXING(DEGREE)
+ ;This takes in a degree heading, nominally from 0 to 360, and returns the compass point name.
+ QUIT:((DEGREE<0)||(DEGREE>360)) "land lubber can't read a compass"
+ NEW DIRS,UNP,UNPACK,SEP,DIR,DOS,D,DS,I,F
+ SET DIRS="N^NbE^N-NE^NEbN^NE^NEbE^E-NE^EbN^E^EbS^E-SE^SEbE^SE^SEbS^S-SE^SbE^"
+ SET DIRS=DIRS_"S^SbW^S-SW^SWbS^SW^SWbW^W-SW^WbS^W^WbN^W-NW^NWbW^NW^NWbN^N-NW^NbW"
+ SET UNP="NESWb"
+ SET UNPACK="north^east^south^west^ by "
+ SET SEP=360/$LENGTH(DIRS,"^")
+ SET DIR=(DEGREE/SEP)+1.5
+ SET DIR=$SELECT((DIR>33):DIR-32,1:DIR)
+ SET DOS=$NUMBER(DIR-.5,0)
+ SET D=$PIECE(DIRS,"^",DIR)
+ SET DS=""
+ FOR I=1:1:$LENGTH(D) DO
+ . SET F=$FIND(UNP,$EXTRACT(D,I)) SET DS=DS_$SELECT((F>0):$PIECE(UNPACK,"^",F-1),1:$E(D,I))
+ KILL DIRS,UNP,UNPACK,SEP,DIR,D,I,F
+ QUIT DOS_"^"_DS
+
+BOXWRITE
+ NEW POINTS,UP,LO,DIR,P,X
+ SET POINTS="0.0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25,118.12,118.13,135.0,151.87,"
+ SET POINTS=POINTS_"151.88,168.75,185.62,185.63,202.5,219.37,219.38,236.25,253.12,253.13,270.0,286.87,"
+ SET POINTS=POINTS_"286.88,303.75,320.62,320.63,337.5,354.37,354.38"
+ SET UP="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+ SET LO="abcdefghijklmnopqrstuvwxyz"
+ FOR P=1:1:$LENGTH(POINTS,",") DO
+ . SET X=$$BOXING($PIECE(POINTS,",",P))
+ . ;Capitalize the initial letter of the direction
+ . SET DIR=$PIECE(X,"^",2)
+ . SET DIR=$TRANSLATE($EXTRACT(DIR,1),LO,UP)_$EXTRACT(DIR,2,$LENGTH(DIR))
+ . WRITE $PIECE(X,"^"),?5,DIR,?40,$JUSTIFY($PIECE(POINTS,",",P),10,2),!
+ KILL POINTS,UP,LO,DIR,P,X
+ QUIT
--- a/Task/Box-the-compass/Mathematica/box-the-compass.math
+++ b/Task/Box-the-compass/Mathematica/box-the-compass.math
@ -0,0 +1,2 @@
+Map[List[Part[#,1], dirs[[Part[#,1]]], ToString@Part[#,2]<>"°"]&,
+  Map[{Floor[Mod[ #+5.625 , 360]/11.25]+1,#}&,input] ]//TableForm
--- a/Task/Box-the-compass/Modula-2/box-the-compass.mod2
+++ b/Task/Box-the-compass/Modula-2/box-the-compass.mod2
@ -0,0 +1,82 @@
+MODULE BoxTheCompass;
+FROM FormatString IMPORT FormatString;
+FROM RealStr IMPORT RealToStr;
+FROM Terminal IMPORT WriteString,WriteLn,Write,ReadChar;
+
+PROCEDURE expand(cp : ARRAY OF CHAR);
+VAR i : INTEGER = 0;
+BEGIN
+    WHILE cp[i] # 0C DO
+        IF i=0 THEN
+            CASE cp[i] OF
+                'N': WriteString("North") |
+                'E': WriteString("East")  |
+                'S': WriteString("South") |
+                'W': WriteString("West")  |
+                'b': WriteString(" by ")
+            ELSE
+                WriteString("-");
+            END;
+        ELSE
+            CASE cp[i] OF
+                'N': WriteString("north") |
+                'E': WriteString("east")  |
+                'S': WriteString("south") |
+                'W': WriteString("west")  |
+                'b': WriteString(" by ")
+            ELSE
+                WriteString("-");
+            END;
+        END;
+        INC(i)
+    END;
+END expand;
+
+PROCEDURE FormatReal(r : REAL);
+VAR
+    buf : ARRAY[0..63] OF CHAR;
+    u,v : INTEGER;
+    w : REAL;
+BEGIN
+    u := TRUNC(r);
+    w := r - FLOAT(u);
+    v := TRUNC(100.0 * w);
+
+    FormatString("%6i.%'02i", buf, u, v);
+    WriteString(buf);
+END FormatReal;
+
+VAR
+    cp : ARRAY[0..31] OF ARRAY[0..4] OF CHAR = {
+        "N", "NbE", "N-NE", "NEbN", "NE", "NEbE", "E-NE", "EbN",
+        "E", "EbS", "E-SE", "SEbE", "SE", "SEbS", "S-SE", "SbE",
+        "S", "SbW", "S-SW", "SWbS", "SW", "SWbW", "W-SW", "WbS",
+        "W", "WbN", "W-NW", "NWbW", "NW", "NWbN", "N-NW", "NbW"
+    };
+    buf : ARRAY[0..63] OF CHAR;
+    i,index : INTEGER;
+    heading : REAL;
+BEGIN
+    WriteString("Index  Degrees  Compass point");
+    WriteLn;
+    WriteString("-----  -------  -------------");
+    WriteLn;
+    FOR i:=0 TO 32 DO
+        index := i MOD 32;
+        heading := FLOAT(i) * 11.25;
+        CASE i MOD 3 OF
+            1: heading := heading + 5.62; |
+            2: heading := heading - 5.62;
+        ELSE
+            (* empty *)
+        END;
+        FormatString("%2i  ", buf, index+1);
+        WriteString(buf);
+        FormatReal(heading);
+        WriteString("   ");
+        expand(cp[index]);
+        WriteLn
+    END;
+
+    ReadChar
+END BoxTheCompass.
--- a/Task/Box-the-compass/NetRexx/box-the-compass.netrexx
+++ b/Task/Box-the-compass/NetRexx/box-the-compass.netrexx
@ -0,0 +1,201 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols nobinary utf8
+
+class RCBoxTheCompass
+
+properties public constant
+  _FULL = '_FULL'
+
+properties indirect
+  headings = Rexx
+  rosepoints = Rexx
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method RCBoxTheCompass() public
+
+  setHeadings(makeHeadings)
+  setRosepoints(makeRosepoints)
+
+  return
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method main(args = String[]) public static
+
+  box = RCBoxTheCompass()
+
+  cp = box.getCompassPoints
+  loop r_ = 1 to cp[0]
+    say cp[r_]
+    end r_
+  say
+
+  hx = box.getHeadingsReport(box.getHeadings)
+  loop r_ = 1 to hx[0]
+    say hx[r_]
+    end r_
+  say
+
+  return
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method getDecimalAngle(degrees, minutes, seconds) public static returns Rexx
+
+  degrees = degrees * 10 % 10
+  minutes = minutes * 10 % 10
+  angle = degrees + (minutes / 60 + (seconds / 60 / 60))
+
+  return angle
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method getDegreesMinutesSeconds(angle) public static returns Rexx
+
+  degrees = angle * 100 % 100
+  minutes = ((angle - degrees) * 60) * 100 % 100
+  seconds = ((((angle - degrees) * 60) - minutes) * 60) * 100 % 100
+
+  return degrees minutes seconds
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method getHeadingsReport(bearings) public returns Rexx
+
+  r_ = 0
+  table = ''
+  r_ = r_ + 1; table[0] = r_; table[r_] = 'Idx' -
+                                          'Abbr' -
+                                          'Compass Point'.left(20) -
+                                          'Degrees'.right(10)
+
+  loop h_ = 1 to bearings[0]
+    heading = bearings[h_]
+    index = getRosepointIndex(heading)
+    parse getRosepoint(index) p_abbrev p_full
+
+    r_ = r_ + 1; table[0] = r_; table[r_] = index.right(3) -
+                                            p_abbrev.left(4) -
+                                            p_full.left(20) -
+                                            heading.format(6, 3).right(10)
+    end h_
+
+  return table
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method getRosepointIndex(heading) public returns Rexx
+
+  one_pt = 360 / 32
+  hn = heading // 360
+  hi = hn % one_pt
+
+  if hn > hi * one_pt + one_pt / 2 then do
+    hi = hi + 1 -- greater than max range for this point; bump to next point
+    end
+
+  idx = hi // 32 + 1 -- add one to get index into rosepoints indexed string
+
+  return idx
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method getRosepoint(index) public returns Rexx
+
+  rp = getRosepoints
+  return rp[index] rp[index, _FULL]
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method makeRosepoints() private returns Rexx
+
+  p_ = 0
+  rp = ''
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'N';    rp[p_, _FULL] = 'North'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NbE';  rp[p_, _FULL] = 'North by East'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NNE';  rp[p_, _FULL] = 'North-Northeast'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NEbn'; rp[p_, _FULL] = 'Northeast by North'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NE';   rp[p_, _FULL] = 'Northeast'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NEbE'; rp[p_, _FULL] = 'Northeast by East'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'ENE';  rp[p_, _FULL] = 'East-Northeast'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'EbN';  rp[p_, _FULL] = 'East by North'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'E';    rp[p_, _FULL] = 'East'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'EbS';  rp[p_, _FULL] = 'East by South'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'ESE';  rp[p_, _FULL] = 'East-Southeast'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SEbE'; rp[p_, _FULL] = 'Southeast by East'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SE';   rp[p_, _FULL] = 'Southeast'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SEbS'; rp[p_, _FULL] = 'Southeast by South'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SSE';  rp[p_, _FULL] = 'South-Southeast'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SbE';  rp[p_, _FULL] = 'South by East'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'S';    rp[p_, _FULL] = 'South'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SbW';  rp[p_, _FULL] = 'South by West'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SSW';  rp[p_, _FULL] = 'South-Southwest'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SWbS'; rp[p_, _FULL] = 'Southwest by South'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SW';   rp[p_, _FULL] = 'Southwest'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'SWbW'; rp[p_, _FULL] = 'Southwest by West'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'WSW';  rp[p_, _FULL] = 'Southwest'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'WbS';  rp[p_, _FULL] = 'West by South'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'W';    rp[p_, _FULL] = 'West'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'WbN';  rp[p_, _FULL] = 'West by North'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'WNW';  rp[p_, _FULL] = 'West-Northwest'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NWbW'; rp[p_, _FULL] = 'Northwest by West'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NW';   rp[p_, _FULL] = 'Northwest'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NWbN'; rp[p_, _FULL] = 'Northwest by North'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NNW';  rp[p_, _FULL] = 'North-Northwest'
+  p_ = p_ + 1; rp[0] = p_; rp[p_] = 'NbW';  rp[p_, _FULL] = 'North by West'
+
+  return rp
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method makeHeadings() private returns Rexx
+
+  hdg = ''
+  hdg[0] = 0
+  points = 32
+  loop i_ = 0 to points
+    heading = i_ * 360 / points
+
+    select case i_ // 3
+      when 1 then heading_h = heading + 5.62
+      when 2 then heading_h = heading - 5.62
+      otherwise   heading_h = heading
+      end
+
+    ix = hdg[0] + 1; hdg[0] = ix; hdg[ix] = heading_h
+    end i_
+
+  return hdg
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+method getCompassPoints() public returns Rexx
+
+  r_ = 0
+  table = ''
+  r_ = r_ + 1; table[0] = r_; table[r_] = 'Idx' -
+                                          'Abbr' -
+                                          'Compass Point'.left(20) -
+                                          'Low (Deg.)'.right(10) -
+                                          'Mid (Deg.)'.right(10) -
+                                          'Hi (Deg.)'.right(10)
+
+  -- one point of the compass is 360 / 32 (11.25) degrees
+  -- using functions to calculate this just for fun
+  one_pt = 360 / 32
+  parse getDegreesMinutesSeconds(one_pt / 2) ad am as .
+  points = 32
+  loop h_ = 0 to points - 1
+    heading = h_ * 360 / points
+    hmin = heading - getDecimalAngle(ad, am, as)
+    hmax = heading + getDecimalAngle(ad, am, as)
+
+    if hmin < 0 then do
+      hmin = hmin + 360
+      end
+    if hmax >= 360 then do
+      hmax = hmax - 360
+      end
+
+    index = getRosepointIndex(heading)
+    parse getRosepoint(index) p_abbrev p_full
+    r_ = r_ + 1; table[0] = r_; table[r_] = index.right(3) -
+                                            p_abbrev.left(4) -
+                                            p_full.left(20) -
+                                            hmin.format(6, 3).right(10) -
+                                            heading.format(6, 3).right(10) -
+                                            hmax.format(6, 3).right(10)
+    end h_
+
+  return table
--- a/Task/Box-the-compass/Nim/box-the-compass.nim
+++ b/Task/Box-the-compass/Nim/box-the-compass.nim
@ -0,0 +1,30 @@
+import math, sequtils, strformat, strutils
+
+const
+  headingNames: array[1..32, string] = [
+    "North", "North by east", "North-northeast", "Northeast by north",
+    "Northeast", "Northeast by east", "East-northeast", "East by north",
+    "East", "East by south", "East-southeast", "Southeast by east",
+    "Southeast", "Southeast by south","South-southeast", "South by east",
+    "South", "South by west", "South-southwest", "Southwest by south",
+    "Southwest", "Southwest by west", "West-southwest", "West by south",
+    "West", "West by north", "West-northwest", "Northwest by west",
+    "Northwest", "Northwest by north", "North-northwest", "North by west"]
+  maxNameLength = headingNames.mapIt(it.len).max
+  degreesPerHeading = 360 / 32
+
+func toCompassIndex(degree: float): 1..32 =
+  var degree = (degree + degreesPerHeading / 2).floorMod 360
+  int(degree / degreesPerHeading) + 1
+
+func toCompassHeading(degree: float): string = headingNames[degree.toCompassIndex]
+
+for i in 0..32:
+  let
+    heading = float(i) * 11.25 + (case i mod 3
+      of 1: 5.62
+      of 2: -5.62
+      else: 0)
+    index = heading.toCompassIndex
+    compassHeading = heading.toCompassHeading.alignLeft(maxNameLength)
+  echo fmt"{index:>2} {compassHeading} {heading:6.2f}"
--- a/Task/Box-the-compass/OCaml/box-the-compass.ocaml
+++ b/Task/Box-the-compass/OCaml/box-the-compass.ocaml
@ -0,0 +1,31 @@
+let test_cases = [0.0; 16.87; 16.88; 33.75; 50.62; 50.63; 67.5;
+                  84.37; 84.38; 101.25; 118.12; 118.13; 135.0;
+                  151.87; 151.88; 168.75; 185.62; 185.63; 202.5;
+                  219.37; 219.38; 236.25; 253.12; 253.13; 270.0;
+                  286.87; 286.88; 303.75; 320.62; 320.63; 337.5;
+                  354.37; 354.38];;
+
+let directions = ["North"; "North by East"; "North-Northeast";
+                  "Northeast by North"; "Northeast";
+                  "Northeast by East"; "East-Northeast"; "East by North";
+                  "East"; "East by South"; "East-Southeast";
+                  "Southeast by East"; "Southeast"; "Southeast by South";
+                  "South-Southeast"; "South by East"; "South";
+                  "South by West"; "South-Southwest"; "Southwest by South";
+                  "Southwest"; "Southwest by West"; "West-Southwest";
+                  "West by South"; "West"; "West by North";
+                  "West-Northwest"; "Northwest by West"; "Northwest";
+                  "Northwest by North"; "North-Northwest"; "North by West";];;
+
+let get_direction_index input =
+  let shifted = (input +. 5.6201) in
+  let shifted = if shifted > 360. then shifted -. 360. else shifted in
+  int_of_float (shifted /. 11.25);;
+
+let print_direction input =
+  let index = get_direction_index input in
+  let direction = List.nth directions index in
+  let test = Printf.printf "%3d %-20s %.2f\n" (index + 1) direction in
+  test input;;
+
+List.iter (print_direction) test_cases;;
--- a/Task/Box-the-compass/Objeck/box-the-compass.objeck
+++ b/Task/Box-the-compass/Objeck/box-the-compass.objeck
@ -0,0 +1,34 @@
+class BoxCompass {
+  function : Main(args : String[]) ~ Nil {
+    points := [
+      "North             ", "North by east     ", "North-northeast   ",
+      "Northeast by north", "Northeast         ", "Northeast by east ", "East-northeast    ",
+      "East by north     ", "East              ", "East by south     ", "East-southeast    ",
+      "Southeast by east ", "Southeast         ", "Southeast by south", "South-southeast   ",
+      "South by east     ", "South             ", "South by west     ", "South-southwest   ",
+      "Southwest by south", "Southwest         ", "Southwest by west ", "West-southwest    ",
+      "West by south     ", "West              ", "West by north     ", "West-northwest    ",
+      "Northwest by west ", "Northwest         ", "Northwest by north", "North-northwest   ",
+      "North by west     " ];
+
+    for(i := 0; i<= 32; i += 1;) {
+      heading := i * 11.25;
+      select(i % 3) {
+        label 1: {
+          heading += 5.62;
+        }
+
+        label 2: {
+          heading -= 5.62;
+        }
+      };
+
+      IO.Console->Print((i % 32) + 1)->Print('\t')->Print(points[GetPoint(heading)])
+        ->Print('\t')->PrintLine(heading);
+    };
+  }
+
+  function : GetPoint(degrees : Float) ~ Int {
+    return (degrees / 11.25 + 0.5)->Floor()->As(Int) % 32;
+  }
+}
--- a/Task/Box-the-compass/OoRexx/box-the-compass.rexx
+++ b/Task/Box-the-compass/OoRexx/box-the-compass.rexx
@ -0,0 +1,259 @@
+/* Rexx */
+
+Do
+  globs = '!DEG !MIN !SEC !FULL'
+  Drop !DEG !MIN !SEC !FULL
+  sign. = ''
+  sign.!DEG = 'c2b0'x     -- degree sign  : U+00B0
+  sign.!MIN = 'e280b2'x   -- prime        : U+2032
+  sign.!SEC = 'e280b3'x   -- double prime : U+2033
+  points. = ''
+
+  Call display_compass_points
+
+  Call display_sample
+  Say
+
+  headings. = ''
+  headings.0 = 0
+  Call make_headings
+
+  Call flush_queue
+  Do h_ = 1 to headings.0
+    Queue headings.h_
+    End h_
+
+  Call display_sample
+  Say
+
+  Return
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+flush_queue:
+Procedure
+Do
+  Do q_ = 1 to queued()
+    Parse pull .
+    End q_
+  Return
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+display_sample:
+Procedure Expose points. sign. (globs)
+Do
+
+  Do q_ = 1 to queued()
+    Parse pull heading
+    index = get_index(heading)
+    Parse Value get_point(index) with p_abbrev p_full
+    Say index~right(3),
+        p_abbrev~left(4) p_full~left(20),
+        heading~format(5, 3) || sign.!DEG '('format_degrees_minutes_seconds(heading)')',
+        ''
+    End q_
+
+  Return
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+display_compass_points:
+Procedure Expose points. sign. (globs)
+Do
+
+  points = 32
+  one_pt = 360 / points
+
+  Do h_ = 0 to points - 1
+    heading = h_ * 360 / points
+    hmin = heading - one_pt / 2
+    hmax = heading + one_pt / 2
+
+    If hmin < 0 then Do
+      hmin = hmin + 360
+      End
+    If hmax >= 360 then Do
+      hmax = hmax - 360
+      End
+
+    index = (h_ // points) + 1
+    Parse Value get_point(index) with p_abbrev p_full
+
+    Say index~right(3),
+        p_abbrev~left(4) p_full~left(20),
+        hmin~format(5, 3)    || sign.!DEG '('format_degrees_minutes_seconds(hmin)')',
+        heading~format(5, 3) || sign.!DEG '('format_degrees_minutes_seconds(heading)')',
+        hmax~format(5, 3)    || sign.!DEG '('format_degrees_minutes_seconds(hmax)')',
+        ''
+    End h_
+  Say
+
+  Return
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+make_headings:
+Procedure Expose headings.
+Do
+  points = 32
+  Do i_ = 0 to points
+    heading = i_ * 360 / 32
+
+    it = i_ // 3
+    Select
+      When it = 1 then Do
+        heading_h = heading + 5.62
+        End
+
+      When it = 2 then Do
+        heading_h = heading - 5.62
+        End
+
+      Otherwise Do
+        heading_h = heading
+        End
+      End
+
+    index = (i_ // points) + 1
+    ix = headings.0 + 1; headings.0 = ix; headings.ix = heading_h
+    End i_
+
+  Return
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+get_index:
+Procedure
+Do
+  Parse Arg heading .
+
+  one_pt = 360 / 32
+  hn = heading // 360
+  hi = hn % one_pt
+
+  If hn > hi * one_pt + one_pt / 2 then Do
+    hi = hi + 1 -- greater than max range for this point; bump to next point
+    End
+
+  idx = hi // 32 + 1 -- add one to get index into points. stem
+
+  Return idx
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+get_point:
+Procedure Expose points. sign. (globs)
+Do
+  Parse arg index .
+
+  Call get_points
+
+  Return points.index points.index.!FULL
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+get_points:
+Procedure Expose points. sign. (globs)
+Do
+
+  Drop !FULL
+
+  points. = ''
+  p_ = 0
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'N';    points.p_.!FULL = 'North'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NbE';  points.p_.!FULL = 'North by East'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NNE';  points.p_.!FULL = 'North-Northeast'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NEbn'; points.p_.!FULL = 'Northeast by North'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NE';   points.p_.!FULL = 'Northeast'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NEbE'; points.p_.!FULL = 'Northeast by East'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'ENE';  points.p_.!FULL = 'East-Northeast'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'EbN';  points.p_.!FULL = 'East by North'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'E';    points.p_.!FULL = 'East'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'EbS';  points.p_.!FULL = 'East by South'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'ESE';  points.p_.!FULL = 'East-Southeast'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SEbE'; points.p_.!FULL = 'Southeast by East'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SE';   points.p_.!FULL = 'Southeast'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SEbS'; points.p_.!FULL = 'Southeast by South'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SSE';  points.p_.!FULL = 'South-Southeast'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SbE';  points.p_.!FULL = 'South by East'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'S';    points.p_.!FULL = 'South'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SbW';  points.p_.!FULL = 'South by West'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SSW';  points.p_.!FULL = 'South-Southwest'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SWbS'; points.p_.!FULL = 'Southwest by South'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SW';   points.p_.!FULL = 'Southwest'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'SWbW'; points.p_.!FULL = 'Southwest by West'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'WSW';  points.p_.!FULL = 'Southwest'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'WbS';  points.p_.!FULL = 'West by South'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'W';    points.p_.!FULL = 'West'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'WbN';  points.p_.!FULL = 'West by North'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'WNW';  points.p_.!FULL = 'West-Northwest'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NWbW'; points.p_.!FULL = 'Northwest by West'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NW';   points.p_.!FULL = 'Northwest'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NWbN'; points.p_.!FULL = 'Northwest by North'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NNW';  points.p_.!FULL = 'North-Northwest'
+  p_ = p_ + 1; points.0 = p_; points.p_ = 'NbW';  points.p_.!FULL = 'North by West'
+
+  Return
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+get_decimal_angle:
+Procedure Expose sign. (globs)
+Do
+  Parse Arg degrees ., minutes ., seconds .
+
+  degrees = degrees * 10 % 10
+  minutes = minutes * 10 % 10
+
+  angle = degrees + minutes / 60 + seconds / 60 / 60
+
+  Return angle
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+format_decimal_angle:
+Procedure Expose sign. (globs)
+Do
+  Parse Arg degrees ., minutes ., seconds .
+
+  Return get_decimal_angle(degrees, minutes, seconds)~format(5, 3) || sign.!DEG
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+get_degrees_minutes_seconds:
+Procedure Expose sign. (globs)
+Do
+  Parse arg angle .
+
+  degrees = angle * 100 % 100
+  minutes = ((angle - degrees) * 60) * 100 % 100
+  seconds = ((((angle - degrees) * 60) - minutes) * 60) * 100 % 100
+
+  Return degrees minutes seconds
+End
+Exit
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+format_degrees_minutes_seconds:
+Procedure Expose  sign. (globs)
+Do
+  Parse arg angle .
+
+  Parse Value get_degrees_minutes_seconds(angle) with degrees minutes seconds .
+
+  formatted = degrees~right(3) || sign.!DEG || minutes~right(2, 0) || sign.!MIN || seconds~right(2, 0) || sign.!SEC
+
+  Return formatted
+End
+Exit
--- a/Task/Box-the-compass/PARI-GP/box-the-compass.parigp
+++ b/Task/Box-the-compass/PARI-GP/box-the-compass.parigp
@ -0,0 +1,7 @@
+box(x)={["North","North by east","North-northeast","Northeast by north","Northeast",
+"Northeast by east","East-northeast","East by north","East","East by south","East-southeast",
+"Southeast by east","Southeast","Southeast by south","South-southeast","South by east","South",
+"South by west","South-southwest","Southwest by south","Southwest","Southwest by west","West-southwest",
+"West by south","West","West by north","West-northwest","Northwest by west","Northwest",
+"Northwest by north","North-northwest","North by west"][round(x*4/45)%32+1]};
+for(i=0,32,print(i%32+1" "box(x=i*11.25+if(i%3==1,5.62,if(i%3==2,-5.62)))" "x))
--- a/Task/Box-the-compass/Pascal/box-the-compass.pas
+++ b/Task/Box-the-compass/Pascal/box-the-compass.pas
@ -0,0 +1,37 @@
+program BoxTheCompass(output);
+
+function compasspoint(angle: real): string;
+  const
+    points: array [1..32] of string =
+      ('North             ', 'North by east     ', 'North-northeast   ', 'Northeast by north',
+       'Northeast         ', 'Northeast by east ', 'East-northeast    ', 'East by north     ',
+       'East              ', 'East by south     ', 'East-southeast    ', 'Southeast by east ',
+       'Southeast         ', 'Southeast by south', 'South-southeast   ', 'South by east     ',
+       'South             ', 'South by west     ', 'South-southwest   ', 'Southwest by south',
+       'Southwest         ', 'Southwest by west ', 'West-southwest    ', 'West by south     ',
+       'West              ', 'West by north     ', 'West-northwest    ', 'Northwest by west ',
+       'Northwest         ', 'Northwest by north', 'North-northwest   ', 'North by west     '
+      );
+  var
+    index: integer;
+  begin
+    index := round (angle / 11.25);
+    index := index mod 32 + 1;
+    compasspoint := points[index];
+  end;
+
+var
+  i:       integer;
+  heading: real;
+
+begin
+  for i := 0 to 32 do
+  begin
+    heading := i * 11.25;
+    case (i mod 3) of
+      1: heading := heading + 5.62;
+      2: heading := heading - 5.62;
+    end;
+    writeln((i mod 32) + 1:2, ' ', compasspoint(heading), ' ', heading:8:4);
+  end;
+end.
--- a/Task/Box-the-compass/Perl/box-the-compass-1.pl
+++ b/Task/Box-the-compass/Perl/box-the-compass-1.pl
@ -0,0 +1,45 @@
+use utf8;
+
+my @names = (
+	"North",
+	"North by east",
+	"North-northeast",
+	"Northeast by north",
+	"Northeast",
+	"Northeast by east",
+	"East-northeast",
+	"East by north",
+	"East",
+	"East by south",
+	"East-southeast",
+	"Southeast by east",
+	"Southeast",
+	"Southeast by south",
+	"South-southeast",
+	"South by east",
+	"South",
+	"South by west",
+	"South-southwest",
+	"Southwest by south",
+	"Southwest",
+	"Southwest by west",
+	"West-southwest",
+	"West by south",
+	"West",
+	"West by north",
+	"West-northwest",
+	"Northwest by west",
+	"Northwest",
+	"Northwest by north",
+	"North-northwest",
+	"North by west",
+);
+my @angles = (0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38,
+	101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62,
+	185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
+	286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38);
+
+for (@angles) {
+	my $i = int(($_ * 32 / 360) + .5) % 32;
+	printf "%3d %18s %6.2f°\n", $i + 1, $names[$i], $_;
+}
--- a/Task/Box-the-compass/Perl/box-the-compass-2.pl
+++ b/Task/Box-the-compass/Perl/box-the-compass-2.pl
@ -0,0 +1,33 @@
+  1              North   0.00°
+  2      North by east  16.87°
+  3    North-northeast  16.88°
+  4 Northeast by north  33.75°
+  5          Northeast  50.62°
+  6  Northeast by east  50.63°
+  7     East-northeast  67.50°
+  8      East by north  84.37°
+  9               East  84.38°
+ 10      East by south 101.25°
+ 11     East-southeast 118.12°
+ 12  Southeast by east 118.13°
+ 13          Southeast 135.00°
+ 14 Southeast by south 151.87°
+ 15    South-southeast 151.88°
+ 16      South by east 168.75°
+ 17              South 185.62°
+ 18      South by west 185.63°
+ 19    South-southwest 202.50°
+ 20 Southwest by south 219.37°
+ 21          Southwest 219.38°
+ 22  Southwest by west 236.25°
+ 23     West-southwest 253.12°
+ 24      West by south 253.13°
+ 25               West 270.00°
+ 26      West by north 286.87°
+ 27     West-northwest 286.88°
+ 28  Northwest by west 303.75°
+ 29          Northwest 320.62°
+ 30 Northwest by north 320.63°
+ 31    North-northwest 337.50°
+ 32      North by west 354.37°
+  1              North 354.38°
--- a/Task/Box-the-compass/Phix/box-the-compass-1.phix
+++ b/Task/Box-the-compass/Phix/box-the-compass-1.phix
@ -0,0 +1,48 @@
+(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">function</span> <span style="color: #000000;">get225</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">d</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">p1</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">p2</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">p4</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">p3</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">p1</span><span style="color: #0000FF;">&</span><span style="color: #008000;">'-'</span><span style="color: #0000FF;">&</span><span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">)</span>
+            <span style="color: #000000;">p2</span> <span style="color: #0000FF;">&=</span> <span style="color: #008000;">" by "</span><span style="color: #0000FF;">&</span><span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">)</span>
+            <span style="color: #000000;">p1</span> <span style="color: #0000FF;">&=</span> <span style="color: #008000;">" by "</span><span style="color: #0000FF;">&</span><span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">p4</span><span style="color: #0000FF;">)</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">d</span> <span style="color: #008080;">then</span>
+         <span style="color: #008080;">return</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">}</span>       <span style="color: #000080;font-style:italic;">-- eg {North by east,North-northeast,Northeast by north}</span>
+     <span style="color: #008080;">else</span>
+         <span style="color: #008080;">return</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">}</span>       <span style="color: #000080;font-style:italic;">-- eg {Northeast by east,East-northeast,East by north}</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">get45</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000000;">d</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">p1</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">p2</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">p3</span>
+     <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">)</span>        <span style="color: #000080;font-style:italic;">-- North/East/South/West</span>
+     <span style="color: #008080;">if</span> <span style="color: #000000;">d</span> <span style="color: #008080;">then</span>
+         <span style="color: #000000;">p3</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">p1</span><span style="color: #0000FF;">&</span><span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">)</span>       <span style="color: #000080;font-style:italic;">-- Northeast/Southwest</span>
+     <span style="color: #008080;">else</span>
+         <span style="color: #000000;">p3</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">p2</span><span style="color: #0000FF;">&</span><span style="color: #7060A8;">lower</span><span style="color: #0000FF;">(</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">)</span>       <span style="color: #000080;font-style:italic;">-- Southeast/Northwest</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+     <span style="color: #000000;">res</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">get225</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">)</span>   <span style="color: #000080;font-style:italic;">-- eg get225(1,North,Northeast,East)
+                                 -- -&gt; {North by east,North-northeast,Northeast by north}</span>
+     <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p3</span><span style="color: #0000FF;">)</span>        <span style="color: #000080;font-style:italic;">-- Northeast/Southeast/Southwest/Northwest</span>
+     <span style="color: #000000;">res</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">get225</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">)</span>   <span style="color: #000080;font-style:italic;">-- eg get225(0,East,Northeast,North)
+                                 -- -&gt; {Northeast by east,East-northeast,East by north}</span>
+     <span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">function</span> <span style="color: #000000;">get90</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">points</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
+     <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">points</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+         <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get45</span><span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</span><span style="color: #0000FF;">),</span><span style="color: #000000;">points</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">points</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">4</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">])</span>
+     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> <span style="color: #000080;font-style:italic;">-- ie get45(1,North,East)
+             --    get45(0,East,South)
+             --    get45(1,South,West)
+             --    get45(0,West,North)</span>
+     <span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">compass_points</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">get90</span><span style="color: #0000FF;">({</span><span style="color: #008000;">"North"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"East"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"South"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"West"</span><span style="color: #0000FF;">})</span>
+
+ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">33</span> <span style="color: #008080;">do</span>
+     <span style="color: #004080;">atom</span> <span style="color: #000000;">test_point</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">11.25</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">5.62</span><span style="color: #0000FF;">*(</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">3</span><span style="color: #0000FF;">)-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">compass_point</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test_point</span><span style="color: #0000FF;">*</span><span style="color: #000000;">32</span><span style="color: #0000FF;">/</span><span style="color: #000000;">360</span><span style="color: #0000FF;">+</span><span style="color: #000000;">0.5</span><span style="color: #0000FF;">),</span><span style="color: #000000;">32</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">1</span>
+     <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"%2d  %-22s  %6.2f\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">compass_point</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">compass_points</span><span style="color: #0000FF;">[</span><span style="color: #000000;">compass_point</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">test_point</span><span style="color: #0000FF;">})</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+<!--
--- a/Task/Box-the-compass/Phix/box-the-compass-2.phix
+++ b/Task/Box-the-compass/Phix/box-the-compass-2.phix
@ -0,0 +1,18 @@
+(phixonline)-->
+ <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
+ <span style="color: #008080;">constant</span> <span style="color: #000000;">compass_points</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span> <span style="color: #008000;">"North"</span><span style="color: #0000FF;">,</span>        <span style="color: #008000;">"North by east"</span><span style="color: #0000FF;">,</span>        <span style="color: #008000;">"North-northeast"</span><span style="color: #0000FF;">,</span>      <span style="color: #008000;">"Northeast by north"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"Northeast"</span><span style="color: #0000FF;">,</span>    <span style="color: #008000;">"Northeast by east"</span><span style="color: #0000FF;">,</span>    <span style="color: #008000;">"East-northeast"</span><span style="color: #0000FF;">,</span>       <span style="color: #008000;">"East by north"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"East"</span><span style="color: #0000FF;">,</span>         <span style="color: #008000;">"East by south"</span><span style="color: #0000FF;">,</span>        <span style="color: #008000;">"East-southeast"</span><span style="color: #0000FF;">,</span>       <span style="color: #008000;">"Southeast by east"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"Southeast"</span><span style="color: #0000FF;">,</span>    <span style="color: #008000;">"Southeast by south"</span><span style="color: #0000FF;">,</span>   <span style="color: #008000;">"South-southeast"</span><span style="color: #0000FF;">,</span>      <span style="color: #008000;">"South by east"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"South"</span><span style="color: #0000FF;">,</span>        <span style="color: #008000;">"South by west"</span><span style="color: #0000FF;">,</span>        <span style="color: #008000;">"South-southwest"</span><span style="color: #0000FF;">,</span>      <span style="color: #008000;">"Southwest by south"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"Southwest"</span><span style="color: #0000FF;">,</span>    <span style="color: #008000;">"Southwest by west"</span><span style="color: #0000FF;">,</span>    <span style="color: #008000;">"West-southwest"</span><span style="color: #0000FF;">,</span>       <span style="color: #008000;">"West by south"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"West"</span><span style="color: #0000FF;">,</span>         <span style="color: #008000;">"West by north"</span><span style="color: #0000FF;">,</span>        <span style="color: #008000;">"West-northwest"</span><span style="color: #0000FF;">,</span>       <span style="color: #008000;">"Northwest by west"</span><span style="color: #0000FF;">,</span>
+                             <span style="color: #008000;">"Northwest"</span><span style="color: #0000FF;">,</span>    <span style="color: #008000;">"Northwest by north"</span><span style="color: #0000FF;">,</span>   <span style="color: #008000;">"North-northwest"</span><span style="color: #0000FF;">,</span>      <span style="color: #008000;">"North by west"</span><span style="color: #0000FF;">},</span>
+         <span style="color: #000000;">test_points</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span>    <span style="color: #000000;">0.0</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">16.87</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">16.88</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">33.75</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">50.62</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">50.63</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">67.5</span><span style="color: #0000FF;">,</span>   <span style="color: #000000;">84.37</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">84.38</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">101.25</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">118.12</span><span style="color: #0000FF;">,</span>
+                         <span style="color: #000000;">118.13</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">135.0</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">151.87</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">151.88</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">168.75</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">185.62</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">185.63</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">202.5</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">219.37</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">219.38</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">236.25</span><span style="color: #0000FF;">,</span>
+                         <span style="color: #000000;">253.12</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">253.13</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">270.0</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">286.87</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">286.88</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">303.75</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">320.62</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">320.63</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">337.5</span><span style="color: #0000FF;">,</span>  <span style="color: #000000;">354.37</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">354.38</span><span style="color: #0000FF;">}</span>
+ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test_points</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">compass_point</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test_points</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]*</span><span style="color: #000000;">32</span><span style="color: #0000FF;">/</span><span style="color: #000000;">360</span><span style="color: #0000FF;">+</span><span style="color: #000000;">0.5</span><span style="color: #0000FF;">),</span><span style="color: #000000;">32</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">1</span>
+     <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"%2d  %-22s  %6.2f\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">compass_point</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">compass_points</span><span style="color: #0000FF;">[</span><span style="color: #000000;">compass_point</span><span style="color: #0000FF;">],</span> <span style="color: #000000;">test_points</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]})</span>
+ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+<!--
--- a/Task/Box-the-compass/Picat/box-the-compass.picat
+++ b/Task/Box-the-compass/Picat/box-the-compass.picat
@ -0,0 +1,18 @@
+go =>
+  Names = ["North", "North by east", "North-northeast", "Northeast by north",
+           "Northeast", "Northeast by east", "East-northeast", "East by north",
+           "East", "East by south", "East-southeast", "Southeast by east",
+           "Southeast", "Southeast by south","South-southeast", "South by east",
+           "South", "South by west", "South-southwest", "Southwest by south",
+           "Southwest", "Southwest by west", "West-southwest", "West by south",
+           "West", "West by north", "West-northwest", "Northwest by west",
+           "Northwest", "Northwest by north", "North-northwest", "North by west", "North"
+          ],
+  foreach(I in 0..32)
+     J = I mod 32,
+     D = I * 11.25,
+     if I mod 3 == 1 then D := D + 5.62 end,
+     if I mod 3 == 2 then D := D - 5.62 end,
+     printf("%2d %-20s %6.2f\n", J+1, Names[J+1], D)
+  end,
+  nl.
--- a/Task/Box-the-compass/PicoLisp/box-the-compass.l
+++ b/Task/Box-the-compass/PicoLisp/box-the-compass.l
@ -0,0 +1,34 @@
+(scl 3)
+
+(setq *Compass                      # Build lookup table
+   (let H -16.875
+      (mapcar
+         '((Str)
+            (cons
+               (inc 'H 11.25)       # Heading in degrees
+               (pack                # Compass point
+                  (replace (chop Str)
+                     "N" "north"
+                     "E" "east"
+                     "S" "south"
+                     "W" "west"
+                     "b" " by " ) ) ) )
+         '("N" "NbE" "N-NE" "NEbN" "NE" "NEbE" "E-NE" "EbN"
+            "E" "EbS" "E-SE" "SEbE" "SE" "SEbS" "S-SE" "SbE"
+            "S" "SbW" "S-SW" "SWbS" "SW" "SWbW" "W-SW" "WbS"
+            "W" "WbN" "W-NW" "NWbW" "NW" "NWbN" "N-NW" "NbW"
+            "N" ) ) ) )
+
+(de heading (Deg)
+   (rank (% Deg 360.00) *Compass) )
+
+(for I (range 0 32)
+   (let H (* I 11.25)
+      (case (% I 3)
+         (1 (inc 'H 5.62))
+         (2 (dec 'H 5.62)) )
+      (tab (3 1 -18 8)
+         (inc (% I 32))
+         NIL
+         (cdr (heading H))
+         (round H 2) ) ) )
--- a/Task/Box-the-compass/PowerShell/box-the-compass-1.psh
+++ b/Task/Box-the-compass/PowerShell/box-the-compass-1.psh
@ -0,0 +1,16 @@
+function Convert-DegreeToDirection ( [double]$Degree )
+    {
+
+    $Directions = @(    'n','n by e','n-ne','ne by n','ne','ne by e','e-ne','e by n',
+                        'e','e by s','e-se','se by e','se','se by s','s-se','s by e',
+                        's','s by w','s-sw','sw by s','sw','sw by w','w-sw','w by s',
+                        'w','w by n','w-nw','nw by w','nw','nw by n','n-nw','n by w',
+                        'n'
+                    ).Replace( 's', 'south' ).Replace( 'e', 'east' ).Replace( 'n', 'north' ).Replace( 'w', 'west' )
+
+    $Directions[[math]::floor(( $Degree % 360 ) / 11.25 + 0.5 )]
+    }
+
+$x = 0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38
+
+$x | % { Convert-DegreeToDirection -Degree $_ }
--- a/Task/Box-the-compass/PowerShell/box-the-compass-2.psh
+++ b/Task/Box-the-compass/PowerShell/box-the-compass-2.psh
@ -0,0 +1,23 @@
+function Convert-DegreeToDirection ( [double]$Degree, [int]$Points )
+    {
+
+    $Directions = @(    'n','n by e','n-ne','ne by n','ne','ne by e','e-ne','e by n',
+                        'e','e by s','e-se','se by e','se','se by s','s-se','s by e',
+                        's','s by w','s-sw','sw by s','sw','sw by w','w-sw','w by s',
+                        'w','w by n','w-nw','nw by w','nw','nw by n','n-nw','n by w',
+                        'n'
+                    ).Replace( 's', 'south' ).Replace( 'e', 'east' ).Replace( 'n', 'north' ).Replace( 'w', 'west' )
+
+    $Directions[[math]::floor((( $Degree % 360 ) * $Points / 360 + 0.5 )) * 32 / $Points ]
+    }
+
+$x = 0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38
+
+
+$Values = @()
+ForEach ( $Degree in $X ) { $Values += [pscustomobject]@{  Degree = $Degree
+                                                               32 = ( Convert-DegreeToDirection -Degree $Degree -Points 32 )
+                                                               16 = ( Convert-DegreeToDirection -Degree $Degree -Points 16 )
+                                                                8 = ( Convert-DegreeToDirection -Degree $Degree -Points  8 )
+                                                                4 = ( Convert-DegreeToDirection -Degree $Degree -Points  4 ) } }
+$Values | Format-Table
--- a/Task/Box-the-compass/Prolog/box-the-compass-1.pro
+++ b/Task/Box-the-compass/Prolog/box-the-compass-1.pro
@ -0,0 +1,37 @@
+compassangle(1, 'North',n, 0.00).
+compassangle(2, 'North by east', nbe, 11.25).
+compassangle(3, 'North-northeast', nne,22.50).
+compassangle(4, 'Northeast by north', nebn,33.75).
+compassangle(5, 'Northeast', ne,45.00).
+compassangle(6, 'Norteast by east', nebe,56.25).
+compassangle(7, 'East-northeast', ene,67.50).
+compassangle(8, 'East by North', ebn,78.75).
+compassangle(9, 'East', e,90.00).
+compassangle(10, 'East by south', ebs, 101.25).
+compassangle(11, 'East-southeast', ese,112.50).
+compassangle(12, 'Southeast by east', sebe, 123.75).
+compassangle(13, 'Southeast', se, 135.00).
+compassangle(14, 'Southeast by south', sebs, 146.25).
+compassangle(15, 'South-southeast',sse, 157.50).
+compassangle(16, 'South by east', sbe, 168.75).
+compassangle(17, 'South', s, 180.00).
+compassangle(18, 'South by west', sbw, 191.25).
+compassangle(19, 'South-southwest', ssw, 202.50).
+compassangle(20, 'Southwest by south', swbs, 213.75).
+compassangle(21, 'Southwest', sw, 225.00).
+compassangle(22, 'Southwest by west', swbw, 236.25).
+compassangle(23, 'West-southwest', wsw, 247.50).
+compassangle(24, 'West by south', wbs, 258.75).
+compassangle(25, 'West', w, 270.00).
+compassangle(26, 'West by north', wbn, 281.25).
+compassangle(27, 'West-northwest', wnw, 292.50).
+compassangle(28, 'Northwest by west', nwbw, 303.75).
+compassangle(29, 'Northwest', nw, 315.00).
+compassangle(30, 'Northwest by north', nwbn, 326.25).
+compassangle(31, 'North-northwest', nnw, 337.50).
+compassangle(32, 'North by west', nbw, 348.75).
+compassangle(1, 'North', n, 360.00).
+compassangle(Index , Name, Heading, Angle) :- nonvar(Angle), resolveindex(Angle, Index),
+                                               compassangle(Index,Name, Heading, _).
+
+resolveindex(Angle, Index) :- N is Angle / 11.25 + 0.5, I is floor(N),Index is (I mod 32) + 1.
--- a/Task/Box-the-compass/Prolog/box-the-compass-2.pro
+++ b/Task/Box-the-compass/Prolog/box-the-compass-2.pro
@ -0,0 +1,7 @@
+printTableRow(Angle) :- compassangle(Index, Name, _, Angle),
+                        write(Index), write('    '),
+                        write(Name), write('   '),
+                        write(Angle).
+
+printTable([X|Xs]) :- printTableRow(X), nl, printTable(Xs),!.
+printTable([]).
--- a/Task/Box-the-compass/Prolog/box-the-compass-3.pro
+++ b/Task/Box-the-compass/Prolog/box-the-compass-3.pro
@ -0,0 +1,36 @@
+?- printTable([0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62,
+                       185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]).
+1    North   0.0
+2    North by east   16.87
+3    North-northeast   16.88
+4    Northeast by north   33.75
+5    Northeast   50.62
+6    Norteast by east   50.63
+7    East-northeast   67.5
+8    East by North   84.37
+9    East   84.38
+10    East by south   101.25
+11    East-southeast   118.12
+12    Southeast by east   118.13
+13    Southeast   135.0
+14    Southeast by south   151.87
+15    South-southeast   151.88
+16    South by east   168.75
+17    South   185.62
+18    South by west   185.63
+19    South-southwest   202.5
+20    Southwest by south   219.37
+21    Southwest   219.38
+22    Southwest by west   236.25
+23    West-southwest   253.12
+24    West by south   253.13
+25    West   270.0
+26    West by north   286.87
+27    West-northwest   286.88
+28    Northwest by west   303.75
+29    Northwest   320.62
+30    Northwest by north   320.63
+31    North-northwest   337.5
+32    North by west   354.37
+1    North   354.38
+true.
--- a/Task/Box-the-compass/PureBasic/box-the-compass.basic
+++ b/Task/Box-the-compass/PureBasic/box-the-compass.basic
@ -0,0 +1,73 @@
+DataSection
+  Data.s "N", "north", "E", "east", "W", "west", "S", "south", "b", " by "   ;abbreviations, expansions
+  Data.s "N NbE N-NE NEbN NE NEbE E-NE EbN E EbS E-SE SEbE SE SEbS S-SE SbE" ;dirs
+  Data.s "S SbW S-SW SWbS SW SWbW W-SW WbS W WbN W-NW NWbW NW NWbN N-NW NbW"
+EndDataSection
+
+;initialize data
+NewMap dirSubst.s()
+Define i, abbr.s, expansion.s
+For i = 1 To 5
+  Read.s abbr
+  Read.s expansion
+  dirSubst(abbr) = expansion
+Next
+
+Dim dirs.s(32)
+Define j, s.s
+For j = 0 To 1
+  Read.s s.s
+  For i = 0 To 15
+    abbr.s = StringField(s, i + 1, " ")
+    dirs(j * 16 + i) = abbr
+  Next
+Next
+
+;expand abbreviated compass point and capitalize
+Procedure.s abbr2compassPoint(abbr.s)
+  Shared dirSubst()
+  Protected i, compassPoint.s, key.s
+
+  For i = 1 To Len(abbr)
+    key.s = Mid(abbr, i, 1)
+    If FindMapElement(dirSubst(), key)
+      compassPoint + dirSubst(key)
+    Else
+      compassPoint + key
+    EndIf
+  Next
+  ProcedureReturn UCase(Left(compassPoint, 1)) + Mid(compassPoint, 2)
+EndProcedure
+
+Procedure.s angle2compass(angle.f)
+  Shared dirs()
+  Static segment.f = 360.0 / 32 ;width of each compass segment
+  Protected dir
+
+  ;work out which segment contains the compass angle
+  dir = Int((Mod(angle, 360) / segment) + 0.5)
+
+  ;convert to a named direction
+  ProcedureReturn abbr2compassPoint(dirs(dir))
+EndProcedure
+
+;box the compass
+If OpenConsole()
+
+  Define i, heading.f, index
+  For i = 0 To 32
+    heading = i * 11.25
+    If i % 3 = 1
+      heading + 5.62
+    EndIf
+    If i % 3 = 2
+      heading - 5.62
+    EndIf
+    index = i % 32 + 1
+
+    PrintN(RSet(Str(index), 2) + " " + LSet(angle2compass(heading), 18) + RSet(StrF(heading, 2), 7))
+  Next
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf
--- a/Task/Box-the-compass/Python/box-the-compass.py
+++ b/Task/Box-the-compass/Python/box-the-compass.py
@ -0,0 +1,25 @@
+majors   = 'north east south west'.split()
+majors   *= 2 # no need for modulo later
+quarter1 = 'N,N by E,N-NE,NE by N,NE,NE by E,E-NE,E by N'.split(',')
+quarter2 = [p.replace('NE','EN') for p in quarter1]
+
+def degrees2compasspoint(d):
+    d = (d % 360) + 360/64
+    majorindex, minor = divmod(d, 90.)
+    majorindex = int(majorindex)
+    minorindex  = int( (minor*4) // 45 )
+    p1, p2 = majors[majorindex: majorindex+2]
+    if p1 in {'north', 'south'}:
+        q = quarter1
+    else:
+        q = quarter2
+    return q[minorindex].replace('N', p1).replace('E', p2).capitalize()
+
+if __name__ == '__main__':
+    for i in range(33):
+        d = i * 11.25
+        m = i % 3
+        if   m == 1: d += 5.62
+        elif m == 2: d -= 5.62
+        n = i % 32 + 1
+        print( '%2i %-18s %7.2f°' % (n, degrees2compasspoint(d), d) )
--- a/Task/Box-the-compass/QBasic/box-the-compass.basic
+++ b/Task/Box-the-compass/QBasic/box-the-compass.basic
@ -0,0 +1,34 @@
+DECLARE FUNCTION compasspoint$ (h!)
+
+DIM SHARED point$(32)
+
+FOR i = 1 TO 32
+    READ d$: point$(i) = d$
+NEXT i
+
+FOR i = 0 TO 32
+    heading = i * 11.25
+    IF (i MOD 3) = 1 THEN
+        heading = heading + 5.62
+    ELSE
+        IF (i MOD 3) = 2 THEN heading = heading - 5.62
+    END IF
+    ind = i MOD 32 + 1
+    PRINT ind, compasspoint$(heading), heading
+NEXT i
+END
+
+DATA  "North             ", "North by east     ", "North-northeast   ", "Northeast by north"
+DATA  "Northeast         ", "Northeast by east ", "East-northeast    ", "East by north     "
+DATA  "East              ", "East by south     ", "East-southeast    ", "Southeast by east "
+DATA  "Southeast         ", "Southeast by south", "South-southeast   ", "South by east     "
+DATA  "South             ", "South by west     ", "South-southwest   ", "Southwest by south"
+DATA  "Southwest         ", "Southwest by west ", "West-southwest    ", "West by south     "
+DATA  "West              ", "West by north     ", "West-northwest    ", "Northwest by west "
+DATA  "Northwest         ", "Northwest by north", "North-northwest   ", "North by west     "
+
+FUNCTION compasspoint$ (h)
+    x = h / 11.25 + 1.5
+    IF (x >= 33!) THEN x = x - 32!
+    compasspoint$ = point$(INT(x))
+END FUNCTION
--- a/Task/Box-the-compass/Quackery/box-the-compass.quackery
+++ b/Task/Box-the-compass/Quackery/box-the-compass.quackery
@ -0,0 +1,40 @@
+  [ tuck space swap of
+    join
+    swap split drop echo$ ]             is lecho$            ( $ n -->   )
+
+  [ table ] is heading
+
+  $ "N NbE N-NE NEbN NE NEbE E-NE EbN
+     E EbS E-SE SEbE SE SEbS S-SE SbE
+     S SbW S-SW SWbS SW SWbW W-SW WbS
+     W WbN W-NW NWbW NW NWbN N-NW NbW"
+  nest$
+  witheach
+    [ $ "" swap
+      witheach
+        [ [ switch
+            char N case $ "north"
+            char E case $ "east"
+            char S case $ "south"
+            char W case $ "west"
+            char b case $ " by "
+            otherwise   $ "-" ]
+          join ]
+      ' heading put ]
+
+  [ 4 45 v* 1 2 v+ / 32 mod heading ]   is degrees->compass$ ( n/d --> $ )
+
+  $ " 0.0  16.87  16.88  33.75  50.62  50.63
+     67.5  84.37  84.38 101.25 118.12 118.13
+    135.0 151.87 151.88 168.75 185.62 185.63
+    202.5 219.37 219.38 236.25 253.12 253.13
+    270.0 286.87 286.88 303.75 320.62 320.63
+    337.5 354.37 354.38"
+  nest$
+  witheach
+    [ i^ 32 mod 1+
+      dup 10 < if sp
+      echo sp
+      dup $->v drop
+      degrees->compass$ 19 lecho$
+      echo$ cr ]
--- a/Task/Box-the-compass/R/box-the-compass-1.r
+++ b/Task/Box-the-compass/R/box-the-compass-1.r
@ -0,0 +1,20 @@
+# Build a table of directions
+pts <- data.frame(
+  des = c("N", "NxE", "NNE", "NExN", "NE", "NExE", "ENE", "ExN",
+          "E", "ExS", "ESE", "SExE", "SE", "SExS", "SSE", "SxE",
+          "S", "SxW", "SSW", "SWxS", "SW", "SWxW", "WSW", "WxS",
+          "W", "WxN", "WNW", "NWxW", "NW", "NWxN", "NNW", "NxW",
+          "N")
+)
+pts$deg <- seq(0, 360, 360/32)
+
+heading <- Vectorize(function(deg) {
+  res <- pts
+  # Calculate the absolute difference between each
+  # point on the table and the function input
+  res$diff <- abs(res$deg - deg)
+
+  # Sort the table by abs difference, return the first
+  res <- res[order(res$diff), ]
+  res[1,]$des[1]
+})
--- a/Task/Box-the-compass/R/box-the-compass-2.r
+++ b/Task/Box-the-compass/R/box-the-compass-2.r
@ -0,0 +1,10 @@
+test <- data.frame(
+  deg = c(  0.0,   16.87,  16.88,  33.75,  50.62,  50.63,  67.5,   84.37,
+           84.38, 101.25, 118.12, 118.13, 135.0,  151.87, 151.88, 168.75,
+          185.62, 185.63, 202.5,  219.37, 219.38, 236.25, 253.12, 253.13,
+          270.0,  286.87, 286.88, 303.75, 320.62, 320.63, 337.5,  354.37,
+          354.38)
+)
+
+test$heading <- heading(test$deg)
+test
--- a/Task/Box-the-compass/R/box-the-compass-3.r
+++ b/Task/Box-the-compass/R/box-the-compass-3.r
@ -0,0 +1 @@
+all.equal(test$heading, pts$des)
--- a/Task/Box-the-compass/REXX/box-the-compass.rexx
+++ b/Task/Box-the-compass/REXX/box-the-compass.rexx
@ -0,0 +1,29 @@
+/*REXX program  "boxes the compass"   [from degree (º) headings  ───►  a 32 point set]. */
+parse arg $                                      /*allow   º   headings to be specified.*/
+if $=''  then $= 0 16.87 16.88 33.75 50.62 50.63 67.5 84.37 84.38 101.25 118.12 118.13   ,
+                 135 151.87 151.88 168.75 185.62 185.63 202.5 219.37 219.38 236.25       ,
+                 253.12 253.13 270 286.87 286.88 303.75 320.62 320.63 337.5 354.37 354.38
+                                                 /* [↑]  use default, they're in degrees*/
+@pts= 'n nbe n-ne nebn ne nebe e-ne ebn e ebs e-se sebe se sebs s-se sbe',
+      "s sbw s-sw swbs sw swbw w-sw wbs w wbn w-nw nwbw nw nwbn n-nw nbw"
+
+#= words(@pts) + 1                               /*#:  used for integer ÷ remainder (//)*/
+dirs= 'north south east west'                    /*define cardinal compass directions.  */
+                                                 /* [↓]  choose a glyph for degree  (°).*/
+if 4=='f4'x  then degSym= "a1"x                  /*is this system an  EBCDIC  system?   */
+             else degSym= "a7"x                  /*'f8'x  is the degree symbol: °  vs º */
+                                                 /*──────────────────────────── f8 vs a7*/
+say right(degSym'heading', 30)     center("compass heading", 20)
+say right(     '════════', 30)     copies(              "═", 20)
+pad= ' '                                         /*used to interject a blank for output.*/
+         do j=1  for words($);   x= word($, j)   /*obtain one of the degree headings.   */
+         say right( format(x, , 2)degSym, 30-1)          pad         boxHeading(x)
+         end   /*j*/
+exit                                             /*stick a fork in it,  we're all done. */
+/*──────────────────────────────────────────────────────────────────────────────────────*/
+boxHeading: y= arg(1)//360; if y<0  then y=360-y /*normalize heading within unit circle.*/
+            z= word(@pts, trunc(max(1, (y/11.25 +1.5) // #))) /*convert degrees─►heading*/
+                                               do k=1  for words(dirs);   d= word(dirs, k)
+                                               z= changestr( left(d, 1),  z,  d)
+                                               end   /*k*/    /* [↑]  old, haystack, new*/
+            return changestr('b',  z,  " by ")                /*expand  "b" ───► " by ".*/
--- a/Task/Box-the-compass/Racket/box-the-compass.rkt
+++ b/Task/Box-the-compass/Racket/box-the-compass.rkt
@ -0,0 +1,55 @@
+#lang racket
+
+;;; Generate the headings and boxes
+(define (i->heading/box i)
+  (values (let ((heading (* i #e11.25)))
+            (case (modulo i 3)
+             ((1) (+ heading #e5.62))
+             ((2) (- heading #e5.62))
+             (else heading)))
+   (add1 (modulo i 32))))
+(define-values (headings-list box-list)
+  (for/lists (h-lst i-lst) ((i (in-range 0 (add1 32))))
+             (i->heading/box i)))
+
+(define box-names
+  (list "North" "North by east" "North-northeast"
+        "Northeast by north" "Northeast" "Northeast by east"
+        "East-northeast" "East by north" "East" "East by south" "East-southeast"
+        "Southeast by east" "Southeast" "Southeast by south" "South-southeast"
+        "South by east" "South" "South by west" "South-southwest"
+        "Southwest by south" "Southwest" "Southwest by west"
+        "West-southwest" "West by south" "West" "West by north" "West-northwest"
+        "Northwest by west" "Northwest" "Northwest by north" "North-northwest"
+        "North by west"))
+
+(define (heading->box h)
+ (let* ((n-boxes (length box-names))
+        (box-width (/ 360 n-boxes)))
+  (add1 (modulo (ceiling (- (/ h box-width) 1/2)) n-boxes))))
+
+;;; displays a single row of the table, can also be used for titles
+(define (display-row b a p)
+  (printf "~a | ~a | ~a~%"
+          (~a b #:width 2 #:align 'right)
+          (~a a #:width 6 #:align 'right)
+          (~a p)))
+
+;;; display the table
+(display-row "#" "Angle" "Point")
+(displayln "---+--------+-------------------")
+(for ((heading headings-list))
+     (let* ((box-number (heading->box heading)))
+       ;; by coincidence, default value of the second argument to
+       ;; real->decimal-string "decimal-digits" is 2,... just what we want!
+       (display-row box-number
+                    (real->decimal-string heading)
+                    (list-ref box-names (sub1 box-number)))))
+
+(module+ test
+ (require rackunit)
+ ;;; unit test heading->box (the business end of the implementation)
+ (check-= (heading->box 354.38) 1 0)
+ (check-= (heading->box 5.62) 1 0)
+ (check-= (heading->box 5.63) 2 0)
+ (check-= (heading->box 16.87) 2 0))
--- a/Task/Box-the-compass/Raku/box-the-compass.raku
+++ b/Task/Box-the-compass/Raku/box-the-compass.raku
@ -0,0 +1,22 @@
+sub point (Int $index) {
+    my $ix = $index % 32;
+    if $ix +& 1
+        { "&point(($ix + 1) +& 28) by &point(((2 - ($ix +& 2)) * 4) + $ix +& 24)" }
+    elsif $ix +& 2
+        { "&point(($ix + 2) +& 24)-&point(($ix +| 4) +& 28)" }
+    elsif $ix +& 4
+        { "&point(($ix + 8) +& 16)&point(($ix +| 8) +& 24)" }
+    else
+        { <north east south west>[$ix div 8]; }
+}
+
+sub test-angle ($ix) { $ix * 11.25 + (0, 5.62, -5.62)[ $ix % 3 ] }
+sub angle-to-point(\𝜽) { floor 𝜽 / 360 * 32 + 0.5 }
+
+for 0 .. 32 -> $ix {
+    my \𝜽 = test-angle($ix);
+    printf "  %2d %6.2f° %s\n",
+              $ix % 32 + 1,
+                  𝜽,
+                         tc point angle-to-point 𝜽;
+}
--- a/Task/Box-the-compass/Red/box-the-compass.red
+++ b/Task/Box-the-compass/Red/box-the-compass.red
@ -0,0 +1,23 @@
+Red []
+
+d:  charset [#"N"  #"E" #"S" #"W"]                                                ;; main directions
+hm: #()                                                                           ;; hm = hashmap - key= heading, value = [box , compass point]
+
+compass-points: [N NbE NNE NEbN NE NEbE ENE EbN E EbS ESE SEbE SE SEbS SSE
+ SbE S SbW SSW SWbS SW SWbW WSW WbS W WbN WNW NWbW NW NWbN NNW NbW N ]
+
+expand: func [cp repl][                                                         ;; expand compass point to words
+  parse cp [ copy a thru d ahead 2 d insert "-" ]                               ;; insert "-" after first direction, if followed by 2 more
+  foreach [src dst ] repl  [ replace/all cp to-string src to-string dst ]       ;; N -> north ...
+  uppercase/part cp 1                                                           ;; convert first letter to uppercase
+]
+
+print-line: does [ print [pad/left hm/:heading/1 3   pad  hm/:heading/2 20  heading ] ]
+
+forall compass-points [
+ i: (index? compass-points) - 1                                                       ;; so i = 0..33
+ heading: i * 11.25 + either 1 = rem: i % 3  [ 5.62]                                  ;; rem = remainder
+                                             [ either  rem = 2 [-5.62] [0.0] ]
+  hm/:heading:  reduce [ (i % 32 + 1 ) expand to-string compass-points/1 [N north b " by " S south E east W west] ]
+  print-line heading
+]
--- a/Task/Box-the-compass/Ring/box-the-compass.ring
+++ b/Task/Box-the-compass/Ring/box-the-compass.ring
@ -0,0 +1,29 @@
+# Project : Box the compass
+
+names = ["North", "North by east", "North-northeast",
+               "Northeast by north", "Northeast", "Northeast by east", "East-northeast",
+               "East by north", "East", "East by south", "East-southeast",
+               "Southeast by east", "Southeast", "Southeast by south", "South-southeast",
+               "South by east", "South", "South by west", "South-southwest",
+               "Southwest by south", "Southwest", "Southwest by west", "West-southwest",
+               "West by south", "West", "West by north", "West-northwest",
+               "Northwest by west", "Northwest", "Northwest by north", "North-northwest",
+               "North by west", "North"]
+
+degrees = [0, 16.87, 16.88, 33.75, 50.62, 50.63,
+                67.5, 84.37, 84.38, 101.25, 118.12, 118.13, 135, 151.87, 151.88, 168.75,
+                185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270,
+                286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38]
+
+for i = 1 to len(degrees)
+     j = floor((degrees[i] + 5.625) / 11.25)
+    if j > 31
+       j = j - 32
+    ok
+    see "" + degrees[i] + " " + j + " "
+    if j != 0
+       see "" + names[j+1] + nl
+    else
+       see "" + names[len(names)] + nl
+    ok
+next
--- a/Task/Box-the-compass/Ruby/box-the-compass.rb
+++ b/Task/Box-the-compass/Ruby/box-the-compass.rb
@ -0,0 +1,24 @@
+Headings = %w(north east south west north).each_cons(2).flat_map do |a, b|
+  [a,
+  "#{a} by #{b}",
+  "#{a}-#{a}#{b}",
+  "#{a}#{b} by #{a}",
+  "#{a}#{b}",
+  "#{a}#{b} by #{b}",
+  "#{b}-#{a}#{b}",
+  "#{b} by #{a}"]
+end
+Headings.prepend nil
+
+def heading(degrees)
+  i = degrees.quo(360).*(32).round.%(32).+(1)
+  [i, Headings[i]]
+end
+
+# an array of angles, in degrees
+angles = (0..32).map { |i| i * 11.25 + [0, 5.62, -5.62][i % 3] }
+
+angles.each do |degrees|
+  index, name = heading degrees
+  printf "%2d %20s %6.2f\n", index, name.center(20), degrees
+end
--- a/Task/Box-the-compass/Run-BASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/Run-BASIC/box-the-compass.basic
@ -0,0 +1,37 @@
+global direct$
+dim direct$(22)
+direct$(1)  = "y"      'by
+direct$(4)  = "ast"    'East
+direct$(13) = "orth"   'North
+direct$(18) = "outh"   'Soutn
+direct$(22) = "est"    'West
+
+dim point$(32)
+for i =1 to 32: read point$(i) :next i
+
+html "<table border=1>"
+for i = 0 to 32
+    hdng = i * 11.25
+    if (i mod 3) = 1 then
+        hdng = hdng +5.62
+    else
+        if (i mod 3) = 2 then hdng = hdng -5.62
+    end if
+    pointer = i mod 32 + 1
+    html "<TR><TD align=right>";pointer;"</td><td>";compas$(hdng);"</td><td>";hdng;"</td></tr>"
+next i
+html "</table>"
+end
+
+function compas$(hd)
+x = hd /11.25 + 1.5
+if (x >=33.0) then x =x -32.0
+  p$ = point$(int(x))
+  for i = 1 to len(p$)
+    compas$ = compas$ + mid$(p$,i,1) + direct$(max(asc(upper$(mid$(p$,i,1)))-65,0))
+  next i
+end function
+
+data "N","N b e","N-ne","Ne b n","Ne","Ne b e","E-ne","E b n","E","E b s","E-se"
+data "Se b e","Se","Se b s","S-se","S b e","S","S b w","S-sw","Sw b s","Sw","Sw b w"
+data "W-sw","W b s","W","W b n","W-nw","Nw b w","Nw","Nw b n","N-nw","N b w"
--- a/Task/Box-the-compass/Rust/box-the-compass.rust
+++ b/Task/Box-the-compass/Rust/box-the-compass.rust
@ -0,0 +1,40 @@
+fn expand(cp: &str) -> String {
+    let mut out = String::new();
+    for c in cp.chars() {
+        out.push_str(match c {
+            'N' => "north",
+            'E' => "east",
+            'S' => "south",
+            'W' => "west",
+            'b' => " by ",
+            _ => "-",
+        });
+    }
+    out
+}
+
+fn main() {
+    let cp = [
+        "N", "NbE", "N-NE", "NEbN", "NE", "NEbE", "E-NE", "EbN",
+        "E", "EbS", "E-SE", "SEbE", "SE", "SEbS", "S-SE", "SbE",
+        "S", "SbW", "S-SW", "SWbS", "SW", "SWbW", "W-SW", "WbS",
+        "W", "WbN", "W-NW", "NWbW", "NW", "NWbN", "N-NW", "NbW"
+    ];
+    println!("Index  Degrees  Compass point");
+    println!("-----  -------  -------------");
+    for i in 0..=32 {
+        let index = i % 32;
+        let heading = i as f32 * 11.25
+            + match i % 3 {
+                1 => 5.62,
+                2 => -5.62,
+                _ => 0.0,
+            };
+        println!(
+            "{:2}     {:6.2}   {}",
+            index + 1,
+            heading,
+            expand(cp[index])
+        );
+    }
+}
--- a/Task/Box-the-compass/Scala/box-the-compass.scala
+++ b/Task/Box-the-compass/Scala/box-the-compass.scala
@ -0,0 +1,22 @@
+object BoxingTheCompass extends App {
+  val cardinal = List("north", "east", "south", "west")
+  val pointDesc = List("1", "1 by 2", "1-C", "C by 1", "C", "C by 2", "2-C", "2 by 1")
+
+  val pointDeg: Int => Double = i => {
+	val fswitch: Int => Int = i => i match {case 1 => 1; case 2 => -1; case _ => 0}
+	i*11.25+fswitch(i%3)*5.62
+  }
+
+  val deg2ind: Double => Int = deg => (deg*32/360+.5).toInt%32+1
+
+  val pointName: Int => String = ind => {
+    val i = ind - 1
+    val str1 = cardinal(i%32/8)
+    val str2 = cardinal((i%32/8+1)%4)
+    val strC = if ((str1 == "north") || (str1 == "south")) str1+str2 else str2+str1
+    pointDesc(i%32%8).replace("1", str1).replace("2", str2).replace("C", strC).capitalize
+  }
+
+  (0 to 32).map(i=>Triple(pointDeg(i),deg2ind(pointDeg(i)),pointName(deg2ind(pointDeg(i)))))
+      .map{t=>(printf("%s\t%18s\t%s°\n",t._2,t._3,t._1))}
+}
--- a/Task/Box-the-compass/Seed7/box-the-compass.seed7
+++ b/Task/Box-the-compass/Seed7/box-the-compass.seed7
@ -0,0 +1,24 @@
+$ include "seed7_05.s7i";
+  include "float.s7i";
+
+const array string: names is [] ("North", "North by east", "North-northeast", "Northeast by north",
+   "Northeast", "Northeast by east", "East-northeast", "East by north", "East", "East by south",
+   "East-southeast", "Southeast by east", "Southeast", "Southeast by south", "South-southeast",
+   "South by east", "South", "South by west", "South-southwest", "Southwest by south", "Southwest",
+   "Southwest by west", "West-southwest", "West by south", "West", "West by north", "West-northwest",
+   "Northwest by west", "Northwest", "Northwest by north", "North-northwest", "North by west", "North");
+
+const proc: main is func
+  local
+    const array float: degrees is [] (0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5, 84.37, 84.38,
+        101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75, 185.62, 185.63, 202.5, 219.37, 219.38,
+        236.25, 253.12, 253.13, 270.0, 286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38);
+    var integer: index is 0;
+    var integer: nameIndex is 0;
+  begin
+    for key index range degrees do
+      nameIndex := round(degrees[index] * 32.0 / 360.0);
+      writeln(succ(pred(index) rem 32) lpad 2 <& "  " <& names[succ(nameIndex rem 32)] rpad 22 <&
+          degrees[index] digits 2 lpad 6);
+    end for;
+  end func;
--- a/Task/Box-the-compass/Sidef/box-the-compass.sidef
+++ b/Task/Box-the-compass/Sidef/box-the-compass.sidef
@ -0,0 +1,15 @@
+func point (index) {
+    var ix = (index % 32);
+    if    (ix & 1) { "#{point((ix + 1) & 28)} by #{point(((2 - (ix & 2)) * 4) + ix & 24)}" }
+    elsif (ix & 2) { "#{point((ix + 2) & 24)}-#{point((ix | 4) & 28)}" }
+    elsif (ix & 4) { "#{point((ix + 8) & 16)}#{point((ix | 8) & 24)}" }
+    else           { <north east south west>[ix / 8] }
+}
+
+func test_angle (ix) { ix * 11.25 + [0, 5.62, -5.62][ ix % 3 ] };
+func angle_to_point(𝜽) { (𝜽 / 360 * 32) + 0.5 -> floor };
+
+for ix in range(0, 32) {
+    var 𝜽 = test_angle(ix);
+    printf("  %2d %6.2f° %s\n", ix % 32 + 1, 𝜽, point(angle_to_point(𝜽)).tc);
+}
--- a/Task/Box-the-compass/Smart-BASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/Smart-BASIC/box-the-compass.basic
@ -0,0 +1,36 @@
+/*Boxing The Compass by rbytes December 2017*/
+GET SCREEN SIZE sw,sh
+OPTION BASE 1
+DIM point$(32,5)
+FOR i=1 TO 32
+FOR j=1 TO 5
+READ point$(i,j)
+NEXT j
+NEXT i
+html$= "<table border=1>"
+html$&= "<TR><TD align=right></td><td>Boxing The Compass</td><td>Abbr</td><td>Min</td><td>Med</td><td>Max</td></tr>"
+FOR i =1 TO 32
+  html$&= "<TR><TD align=right>"&i&"</td><td>"&point$(i,1)&"</td><td>"&point$(i,2)&"</td><td>"&point$(i,3)&"</td><td>"&point$(i,4)&"</td><td>"&point$(i,5)&"</td></tr>"
+NEXT i
+html$&= "</table>"
+BROWSER "compass" AT 0,0 SIZE sw-20,sh-20
+BROWSER "compass" TEXT html$
+PAUSE 20
+END
+
+DATA "North", "N",  "354.38", "0", "5.62", "North by east", "NbE", "5.63",  "11.25", "16.87"
+DATA "North-northeast",  "NNE",  "16.88",  "22.50",  "28.12", "Northeast by north",  "NEbN",  "28.13", "33.75", "39.37"
+DATA "Northeast", "NE", "39.38", "45.00", "50.62", "Northeast by east", "NEbE", "50.63", "56.25", "61.87"
+DATA "East-northeast", "ENE", "61.88", "67.50",  "73.12", "East by north", "EbN", "73.13", "78.75", "84.37"
+DATA "East", "E", "84.38", "90.00", "95.62", "East by south", "EbS", "95.63", "101.25", "106.87"
+DATA "East-southeast", "ESE", "106.88", "112.50", "118.12", "Southeast by east", "SEbE", "118.13", "123.75", "129.37"
+DATA "Southeast", "SE", "129.38", "135.00", "140.62", "Southeast by south", "SEbS", "140.63", "146.25", "151.87"
+DATA "South-southeast", "SSE", "151.88", "157.50", "163.12", "South by east", "SbE", "163.13", "168.75", "174.37"
+DATA "South", "S", "174.38", "180.00", "185.62", "South by west", "SbW", "185.63", "191.25", "196.87"
+DATA "South-southwest", "SSW", "196.88", "202.50", "208.12", "Southwest by south", "SWbS", "208.13", "213.75", "219.37"
+DATA "Southwest", "SW", "219.38", "225.00", "230.62", "Southwest by west", "SWbW", "230.63", "236.25", "241.87"
+DATA "West-southwest", "WSW", "241.88", "247.50", "253.12", "West by south", "WbS", "253.13", "258.75", "264.37"
+DATA "West", "W", "264.38", "270.00", "275.62", "West by north", "WbN", "275.63", "281.25", "286.87"
+DATA "West-northwest", "WNW", "286.88", "292.50", "298.12", "Northwest by west", "NWbW", "298.13", "303.75", "309.37"
+DATA "Northwest", "NW", "309.38", "315.00", "320.62", "Northwest by north",  "NWbN", "320.63", "326.25", "331.87"
+DATA "North-northwest", "NNW", "331.88", "337.50", "343.12", "North by west", "NbW", "343.13", "348.75", "354.37"
--- a/Task/Box-the-compass/Tcl/box-the-compass.tcl
+++ b/Task/Box-the-compass/Tcl/box-the-compass.tcl
@ -0,0 +1,27 @@
+proc angle2compass {angle} {
+    set dirs {
+	N NbE N-NE NEbN NE NEbE E-NE EbN E EbS E-SE SEbE SE SEbS S-SE SbE
+	S SbW S-SW SWbS SW SWbW W-SW WbS W WbN W-NW NWbW NW NWbN N-NW NbW
+    }
+    set unpack {N "north" E "east" W "west" S "south" b " by "}
+
+    # Compute the width of each compass segment
+    set sep [expr {360.0 / [llength $dirs]}]
+
+    # Work out which segment contains the compass angle
+    set dir [expr {round((fmod($angle + $sep/2, 360) - $sep/2) / $sep)}]
+
+    # Convert to a named direction, capitalized as in the wikipedia article
+    return [string totitle [string map $unpack [lindex $dirs $dir]]]
+}
+
+# Box the compass, using the variable generation algorithm described
+for {set i 0} {$i < 33} {incr i} {
+    set heading [expr {$i * 11.25}]
+    if {$i % 3 == 1} {set heading [expr {$heading + 5.62}]}
+    if {$i % 3 == 2} {set heading [expr {$heading - 5.62}]}
+    set index [expr {$i % 32 + 1}]
+
+    # Pretty-print the results of converting an angle to a compass heading
+    puts [format "%2i %-18s %7.2f°" $index [angle2compass $heading] $heading]
+}
--- a/Task/Box-the-compass/True-BASIC/box-the-compass.basic
+++ b/Task/Box-the-compass/True-BASIC/box-the-compass.basic
@ -0,0 +1,34 @@
+DIM point$(32)
+
+FUNCTION compasspoint$ (h)
+    LET x = h / 11.25 + 1.5
+    IF (x >= 33) THEN LET x = x - 32
+    LET compasspoint$ = point$(INT(x))
+END FUNCTION
+
+RESTORE
+DATA  "North             ", "North by east     ", "North-northeast   ", "Northeast by north"
+DATA  "Northeast         ", "Northeast by east ", "East-northeast    ", "East by north     "
+DATA  "East              ", "East by south     ", "East-southeast    ", "Southeast by east "
+DATA  "Southeast         ", "Southeast by south", "South-southeast   ", "South by east     "
+DATA  "South             ", "South by west     ", "South-southwest   ", "Southwest by south"
+DATA  "Southwest         ", "Southwest by west ", "West-southwest    ", "West by south     "
+DATA  "West              ", "West by north     ", "West-northwest    ", "Northwest by west "
+DATA  "Northwest         ", "Northwest by north", "North-northwest   ", "North by west     "
+
+FOR i = 1 TO 32
+    READ d$
+    LET point$(i) = d$
+NEXT i
+
+FOR i = 0 TO 32
+    LET heading = i * 11.25
+    IF REMAINDER(i, 3) = 1 THEN
+       LET heading = heading + 5.62
+    ELSE
+       IF REMAINDER(i, 3) = 2 THEN LET heading = heading - 5.62
+    END IF
+    LET ind = REMAINDER(i, 32) + 1
+    PRINT ind, compasspoint$(heading), heading
+NEXT i
+END
--- a/Task/Box-the-compass/UNIX-Shell/box-the-compass.sh
+++ b/Task/Box-the-compass/UNIX-Shell/box-the-compass.sh
@ -0,0 +1,50 @@
+# List of abbreviated compass point labels
+compass_points=( N NbE N-NE NEbN NE NEbE E-NE EbN
+                 E EbS E-SE SEbE SE SEbS S-SE SbE
+                 S SbW S-SW SWbS SW SWbW W-SW WbS
+                 W WbN W-NW NWbW NW NWbN N-NW NbW )
+
+# List of angles to test
+test_angles=(  0.00  16.87  16.88  33.75  50.62  50.63  67.50
+              84.37  84.38 101.25 118.12 118.13 135.00 151.87
+             151.88 168.75 185.62 185.63 202.50 219.37 219.38
+             236.25 253.12 253.13 270.00 286.87 286.88 303.75
+             320.62 320.63 337.50 354.37 354.38 )
+
+capitalize() {
+  printf '%s%s\n' "$(tr a-z A-Z <<<"${1:0:1}")" "${1:1}"
+}
+
+# convert compass point abbreviation to full text of label
+function expand_point {
+  local label=$1
+  set -- N north E east S south W west b " by "
+  while (( $# )); do
+    label=${label//$1/$2}
+    shift 2
+  done
+  capitalize "$label"
+}
+
+# modulus function that returns 1..N instead of 0..N-1
+function amod {
+  echo $(( ($1 - 1) % $2 + 1 ))
+}
+
+# convert a compass angle from degrees into a box index (1..32)
+function compass_point {
+  # use bc or dc depending on what's on the system
+  #amod $(dc <<<"$1 5.625 + 11.25 / 1 + p") 32
+  amod $(bc <<<"($1 + 5.625) / 11.25 + 1") 32
+}
+
+#  Now output the table of test data
+header_format="%-7s | %-18s | %s\n"
+row_format="%7.2f | %-18s | %2d\n"
+printf "$header_format" "Degrees" "Closest Point" "Index"
+for angle in ${test_angles[@]}; do
+  let index=$(compass_point $angle)
+  abbr=${compass_points[index-1]}
+  label="$(expand_point $abbr)"
+  printf "$row_format" $angle "$label" $index
+done
--- a/Task/Box-the-compass/VBA/box-the-compass.vba
+++ b/Task/Box-the-compass/VBA/box-the-compass.vba
@ -0,0 +1,34 @@
+Public Sub box_the_compass()
+    Dim compass_point As Integer
+    Dim compass_points_all As New Collection
+    Dim test_points_all As New Collection
+    Dim compass_points(8) As Variant
+    Dim test_points(3) As Variant
+    compass_points(1) = [{ "North",        "North by east",        "North-northeast",      "Northeast by north"}]
+    compass_points(2) = [{ "Northeast",    "Northeast by east",    "East-northeast",       "East by north"}]
+    compass_points(3) = [{ "East",         "East by south",        "East-southeast",       "Southeast by east"}]
+    compass_points(4) = [{ "Southeast",    "Southeast by south",   "South-southeast",      "South by east"}]
+    compass_points(5) = [{ "South",        "South by west",        "South-southwest",      "Southwest by south"}]
+    compass_points(6) = [{ "Southwest",    "Southwest by west",    "West-southwest",       "West by south"}]
+    compass_points(7) = [{ "West",         "West by north",        "West-northwest",       "Northwest by west"}]
+    compass_points(8) = [{ "Northwest",    "Northwest by north",   "North-northwest",      "North by west"}]
+    test_points(1) = [{ 0.0,  16.87,  16.88,  33.75,  50.62,  50.63,  67.5,   84.37,  84.38, 101.25, 118.12}]
+    test_points(2) = [{ 118.13, 135.0,  151.87, 151.88, 168.75, 185.62, 185.63, 202.5,  219.37, 219.38, 236.25}]
+    test_points(3) = [{ 253.12, 253.13, 270.0,  286.87, 286.88, 303.75, 320.62, 320.63, 337.5,  354.37, 354.38}]
+    For i = 1 To 3
+        For Each t In test_points(i)
+            test_points_all.Add t
+        Next t
+    Next i
+    For i = 1 To 8
+        For Each c In compass_points(i)
+            compass_points_all.Add c
+        Next c
+    Next i
+    For i = 1 To test_points_all.Count
+        compass_point = (WorksheetFunction.Floor(test_points_all(i) * 32 / 360 + 0.5, 1) Mod 32) + 1
+        Debug.Print Format(compass_point, "@@"); "  "; compass_points_all(compass_point);
+        Debug.Print String$(20 - Len(compass_points_all(compass_point)), " ");
+        Debug.Print test_points_all(i)
+    Next i
+End Sub
--- a/Task/Box-the-compass/Visual-Basic-.NET/box-the-compass.vb
+++ b/Task/Box-the-compass/Visual-Basic-.NET/box-the-compass.vb
@ -0,0 +1,46 @@
+Module BoxingTheCompass
+    Dim _points(32) As String
+
+    Sub Main()
+        BuildPoints()
+
+        Dim heading As Double = 0D
+
+        For i As Integer = 0 To 32
+            heading = i * 11.25
+            Select Case i Mod 3
+                Case 1
+                    heading += 5.62
+                Case 2
+                    heading -= 5.62
+            End Select
+
+            Console.WriteLine("{0,2}: {1,-18} {2,6:F2}°", (i Mod 32) + 1, InitialUpper(GetPoint(heading)), heading)
+        Next
+    End Sub
+
+    Private Sub BuildPoints()
+        Dim cardinal As String() = New String() {"north", "east", "south", "west"}
+        Dim pointDesc As String() = New String() {"1", "1 by 2", "1-C", "C by 1", "C", "C by 2", "2-C", "2 by 1"}
+
+        Dim str1, str2, strC As String
+
+        For i As Integer = 0 To 3
+            str1 = cardinal(i)
+            str2 = cardinal((i + 1) Mod 4)
+            strC = IIf(str1 = "north" Or str1 = "south", str1 & str2, str2 & str1)
+            For j As Integer = 0 To 7
+                _points(i * 8 + j) = pointDesc(j).Replace("1", str1).Replace("2", str2).Replace("C", strC)
+            Next
+        Next
+    End Sub
+
+    Private Function InitialUpper(ByVal s As String) As String
+        Return s.Substring(0, 1).ToUpper() & s.Substring(1)
+    End Function
+
+    Private Function GetPoint(ByVal Degrees As Double) As String
+        Dim testD As Double = (Degrees / 11.25) + 0.5
+        Return _points(CInt(Math.Floor(testD Mod 32)))
+    End Function
+End Module
--- a/Task/Box-the-compass/Wren/box-the-compass.wren
+++ b/Task/Box-the-compass/Wren/box-the-compass.wren
@ -0,0 +1,66 @@
+import "/fmt" for Fmt
+
+// 'cpx' returns integer index from 0 to 31 corresponding to compass point.
+// Input heading h is in degrees.  Note this index is a zero-based index
+// suitable for indexing into the table of printable compass points,
+// and is not the same as the index specified to be printed in the output.
+var cpx = Fn.new { |h|
+    var x = (h/11.25+0.5).floor % 32
+    if (x < 0) x = x + 32
+    return x
+}
+
+// printable compass points
+var compassPoint = [
+    "North",
+    "North by east",
+    "North-northeast",
+    "Northeast by north",
+    "Northeast",
+    "Northeast by east",
+    "East-northeast",
+    "East by north",
+    "East",
+    "East by south",
+    "East-southeast",
+    "Southeast by east",
+    "Southeast",
+    "Southeast by south",
+    "South-southeast",
+    "South by east",
+    "South",
+    "South by west",
+    "South-southwest",
+    "Southwest by south",
+    "Southwest",
+    "Southwest by west",
+    "West-southwest",
+    "West by south",
+    "West",
+    "West by north",
+    "West-northwest",
+    "Northwest by west",
+    "Northwest",
+    "Northwest by north",
+    "North-northwest",
+    "North by west"
+]
+
+// function required by task
+var degreesToCompassPoint = Fn.new { |h| compassPoint[cpx.call(h)] }
+
+var r = [
+    0.0, 16.87, 16.88, 33.75, 50.62, 50.63, 67.5,
+    84.37, 84.38, 101.25, 118.12, 118.13, 135.0, 151.87, 151.88, 168.75,
+    185.62, 185.63, 202.5, 219.37, 219.38, 236.25, 253.12, 253.13, 270.0,
+    286.87, 286.88, 303.75, 320.62, 320.63, 337.5, 354.37, 354.38
+]
+
+System.print("Index  Compass point         Degree")
+var i = 0
+for (h in r) {
+    var index = i%32 + 1  // printable index computed per pseudocode
+    var d = degreesToCompassPoint.call(h)
+    System.print("%(Fmt.d(4, index))   %(Fmt.s(-19, d)) %(Fmt.f(7, h, 2))°")
+    i = i + 1
+}
--- a/Show more
+++ b/Show more