Anubis / Anubis

   
read tools/basis.anubis   
   
   
public define One
   trace
     (
       List(Int32) l
     ) =
   if l is 
     {
       [ ] then print("\n"),
       [h . t] then print(""+h+" "); trace(t)
     }.
   
public define List(Int32)   
   trace
     (
       String comment, 
       List(Int32) l
     ) =
   print(comment); trace(l); l. 
   
public define One
   trace
     (
       List(Rectangle) l
     ) =
   if l is 
     {
       [ ] then print("----\n"),
       [h . t] then 
         if h is rect(x,y,u,v) then print("   ["+x+","+y+","+u+","+v+"]\n"); 
         trace(t)
     }.