anchor.diff:  
   
   (def-global-code skill-systems
  -  (with-open-file (in (merge-pathnames "skills-4g.lisp"
  +  (with-open-file (in (merge-pathnames "skills.lisp"
                                          *dataset-path*)
                         :direction :input)
       `(array 
         ,@(loop for skill-system in (read in)
              collect `(create :name ,(getf skill-system :system-name)
  +                            en-name ,(getf skill-system :en-name)
   			    :skills (array ,@(loop for skill in (getf skill-system 
   								      :skills)
   						when (> (getf skill :points) 0)
   						collect `(create :name ,(getf skill :name)
  +                                                                 en-name ,(getf skill :en-name)
   								 :points ,(getf skill :points)))))))))
   
  -(def-widget skill-item (effect update-callback destructor)
  -    ()
  -  #jsx(with-slots (name skills) (aref skill-systems (@ effect id))
  +(def-widget skill-item (language effect update-callback destructor)
  +    ()
  +  #jsx(with-slots (en-name name skills) (aref skill-systems (@ effect id))
   	(:li ((class-name "list-group-item"))
   	     (:div ((class-name "row"))
   		   (:div ((class-name "col-md-4"))
  -			 name)
  +                         (lang-text ("zh" name)
  +                                    ("en" en-name)))
   		   (:div ((class-name "col-md-6"))
   			 (:select ((class-name "form-control")
                                      (value (@ effect active))
  
positive.code:                                         (skill-points (local-state skill-points-b))
                                          (slot-id "b")
                                          (:callback (@ this handle-change))))
                    (:label () (lang-text ("en" "Holes")
                                          ("zh" "护石孔数")))
                    (:select ((class-name "form-control")
                              (value (local-state holes))
  
negative.code: 				  (chain skills 
  					 (map (lambda (skill id)
  						(:option ((value id))
  							 (lang-text ("zh" (@ skill name))
                                                                      ("en" (@ skill en-name)))))))))
  		   (:div ((class-name "col-md-2"))
  			 (:button ((class-name "btn btn-default")
  				   (on-click (lambda () 
  