Вершина - [a,b,c...], является идентификатором вершины.
Связь - Вершина(i,...) --- Вешины(j,...), описывает связь 2х вершин через коннекторы i,j.

a-(1)---(2)-b
 \
 (2)---(1)-c

  (2)---
 /      \
a-(3)---(1)-b
 \
 (2)---(1)-c
  

a --- b через a(3)---(1)b
a --- c через a(2)---(1)c

/dev/sda3 on / type ext4 (rw,noatime,commit=0)
/dev/sda1 on /boot type ext2 (rw,noatime)
/dev/sda4 on /home type reiserfs (rw,noatime)

class GuiClient:
    def __init__(self, sockfile='./gui-client.sock'):
         self.running = True
            
        #signal.signal(signal.SIGHUP, self.start)
        signal.signal(signal.SIGINT, self.stop)
        signal.signal(signal.SIGTERM, self.stop)
               
        self.w = ui.Window()
          
        print('Inter GtkMain')
        self.w.show_all()
        gobject.timeout_add(100, self.update)
        ui.gtk.main()
        print('Exit GtkMain')
       
    def update(self):
        print 'updated!'
        if self.running:
            return True
        else:
            return False

$("a.taskPartCreate").bind('click', 
			       (function () {
				   $("<div></div>")
				       .load("/add-task-part")
				       .appendTo(".taskPartAcc");
				   return false;
			       }));

$("div.hiddenBlock[@myid='ui']")

<div class="hiddenBlock" myid="core"></div>
<div class="hiddenBlock" myid="ui"></div>
<div class="hiddenBlock" myid="math"></div>

let rec f n =
    if (n > 0)
    then 
        let ballast = [0 .. 100000]
        let l = [0 .. 10]
        if ((n * 2) > (List.nth ballast 99999))
        then ()
        else (l |> List.iter (fun el -> f (n - 1)))  
    else ()

The type '(('a * 'b) list -> Map<'a,'b>) when 'a : comparison' does not support the 'comparison' constraint. For example, it does not support the 'System.IComparable' interface

Map.ofList <string, (string list) * (string list)>                             
                            [
                                "*", ([], ["ТипЭлемента"; ТипКонтакта"; "ВидКонтакта";]);
                                "a", (["*"], ["a"]);
                                "b", (["d"], ["b"]);
                                "c", (["a; b"], ["c"; "cc"]);
                                "d", (["c"; "*"], ["d"]);
                            ]

Debugger entered--Lisp error: (error "Fundamental Mode doesn't support Hideshow Minor Mode")
  signal(error ("Fundamental Mode doesn't support Hideshow Minor Mode"))
  error("%s Mode doesn't support Hideshow Minor Mode" "Fundamental")
  hs-grok-mode-type()
  hs-minor-mode()
  eval-buffer(#<buffer  *load*> nil "/home/pscat/.emacs.d/init.el" nil t)  ; Reading at buffer position 3906
  load-with-code-conversion("/home/pscat/.emacs.d/init.el" "/home/pscat/.emacs.d/init.el" t t)
  load("/home/pscat/.emacs.d/init" t t)

(defun draw-data ()
  (gl:load-identity)
  (gl:clear-color 1 1 1 1)
  (gl:clear :color-buffer-bit :depth-buffer-bit)
  (gl:point-size 10)
					;(gl:with-primitive :points  
  (loop
     :for particle :across data:*particles*
     :do (let ((p (part-point particle)))
	   (gl:translate 0 0 0)
	   (gl:color 0 0 0)
	   (gl:with-primitive :points   
	     (gl:vertex (vector:point-x p)
			(vector:point-y p)
			(vector:point-z p))))))

(defun draw-data ()
  (gl:load-identity)
  (gl:clear-color 1 1 1 1)
  (gl:clear :color-buffer-bit :depth-buffer-bit)
  (gl:point-size 10)
  (gl:with-primitive :points  
    (loop
       :for particle :across data:*particles*
       :do (let ((p (part-point particle)))
	     (gl:translate 0 0 0)
	     (gl:color 0 0 0)
	     (gl:vertex (vector:point-x p)
			(vector:point-y p)
			(vector:point-z p))))))



OpenGL signalled (1282 . INVALID-OPERATION) from END.
   [Condition of type CL-OPENGL-BINDINGS:OPENGL-ERROR]

Restarts:
 0: [CONTINUE] Continue
 1: [RETRY] Retry SLIME REPL evaluation request.
 2: [*ABORT] Return to SLIME's top level.
 3: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" RUNNING {1002D74691}>)

Backtrace:
  0: (CL-OPENGL-BINDINGS:CHECK-ERROR #<unavailable argument>)
  1: (DRAW-DATA)
  2: ((LAMBDA ()))
  3: ((SB-PCL::EMF LISPBUILDER-SDL::PROCESS-TIMESTEP) #<unavailable argument> #<unavailable argument> #<FPS-FIXED {1006845F51}> #<FUNCTION (LAMBDA #) {10056BBC59}>)
  4: ((SB-PCL::FAST-METHOD LISPBUILDER-SDL::PROCESS-TIMESTEP :AROUND (LISPBUILDER-SDL::FPS-MANAGER T)) ..)
  5: (VIEW 0 0)
  6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (VIEW) #<NULL-LEXENV>)
 --more--

open CSharpElement

type My = Element

...

elements |> Map.ofList 

let variants = filteredVariants_f intersection
// 'b * 'c -> 'd -> seq<Vertex array> 

let a = Seq.length variants  
//The type ''b * 'c -> 'd -> seq<Vertex array>' is not compatible with the type 'seq<'a>'

let variants : Vertex array seq  = filteredVariants_f intersection
// This expression was expected to have type     seq<Vertex array>     but here has type     'a * 'b -> 'c -> seq<Vertex array>

let f arg = 
    match arg with
    | :? int -> 1
    | :? string -> 2;;

 public struct vertexPath<TVertex, TLp>
        {
            public readonly TVertex VertexFrom;
            public readonly TVertex Vertex;
            public ICollection<Pair<TLp, TLp>> FromToSets;
...
}

let getOnlyVs_f (vpaths : seq<UGSearchingExtensions.vertexPath<Element, string>>) =
    Seq.map(fun vpath -> vpath.Vertex) vpaths

(require 'auto-complete-config)
auto-complete-config

(global-auto-complete-mode t)
t

(ac-config-default)
t

(require 'ac-slime) 
ac-slime

(slime-mode t)
t

(add-hook 'slime-mode-hook 'set-up-slime-ac)
(set-up-slime-ac slime-autodoc-maybe-enable slime-add-easy-menu slime-setup-first-change-hook)