SetDirectory["/Users/wellin/MathInEd/Vol.2_No.4/Schlingemann"]

Needs["Navigation`"];

<</Users/wellin/MathInEd/InitStuff.m

navigate[{{4,-4,2},{0,6,0}},
         {{{-3,-2,-7/2},{5,-1,7/2}},
          {{-4,4,-3/2},{4,5,1}}}];