diff --git a/glicid/packages/ssh.scm~ b/glicid/packages/ssh.scm~
new file mode 100644
index 0000000..32c929f
--- /dev/null
+++ b/glicid/packages/ssh.scm~
@@ -0,0 +1,724 @@
+(define-module (glicid packages glicid)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system cmake)
+;  #:use-module (guix licenses)
+  #:use-module (gnu packages gawk)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages commencement)
+  #:use-module (guix build-system python)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module ((guix utils) #:select (target-64bit?))
+  #:use-module (gnu packages)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages freeipmi)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages mpi)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages parallel)
+  #:use-module (gnu packages storage)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages gtk)  
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages python-science)
+  #:use-module (gnu packages python-web)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages tcl)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages commencement)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages chemistry)
+  #:use-module (gnu packages sphinx)
+  #:use-module (srfi srfi-1)
+  #:use-module (gnu packages mpi)
+  #:use-module (gnu packages sssd)
+  #:use-module (gnu packages fabric-management)
+  #:use-module (gnu packages benchmark)
+  #:use-module (gnu packages messaging)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages cluster)  
+  #:use-module (gnu packages libevent)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages flex)
+  #:use-module (gnu packages bison)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages fontutils)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages maths)     
+  #:use-module (guix utils)
+  #:use-module (gnu packages cmake)
+  #:use-module  (gnu packages pretty-print)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages cryptsetup)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages assembly)
+  #:use-module (gnu packages authentication)
+  #:use-module (gnu packages bdw-gc)
+  #:use-module (gnu packages boost) 
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages crypto)
+  #:use-module (gnu packages cryptsetup)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages disk)
+  #:use-module (gnu packages gperf)
+  #:use-module (gnu packages jemalloc)
+  #:use-module (gnu packages linux)   
+  #:use-module (gnu packages lua)     
+  #:use-module (gnu packages ncurses) 
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages nss)
+  #:use-module (gnu packages openldap)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages sphinx)
+  #:use-module (gnu packages tls)   
+  #:use-module (gnu packages web)   
+;;  #:use-module (gnu packages glicid)
+  #:use-module (gnu packages pretty-print)
+  #:use-module (gnu packages virtualization)
+  #:use-module (glicid packages storage)
+  #:use-module (glicid packages mpi)
+  #:use-module (glicid packages gcc)
+  
+)
+
+
+;;;;;;;;
+
+
+(define-public glicid-librdkafka-09
+ (package 
+  (inherit librdkafka) 
+  (name "glicid-librdkafka-09")
+  (version "0.9.2")
+  (source 
+   (origin
+    (method url-fetch)
+    (uri (string-append "https://github.com/edenhill/librdkafka/archive/v" version ".tar.gz"))
+    (sha256 (base32 "0938yn1msaq8xcj5z7b3jcdy6rslh9kxmvz01r8rdcgbarlvchy2"))
+   ))
+))
+
+
+
+(define-public glicid-x2go
+ (package 
+  (name "glicid-x2go")
+  (version "4.1.0.3")
+  (source 
+   (origin
+    (method url-fetch)
+    (uri (string-append "https://code.x2go.org/releases/source/x2goserver/x2goserver-" version ".tar.gz"))
+    (sha256 (base32 "1l6wd708kbipib4ldprfiihqmj4895nifg0bkws4x97majislxk7"))
+   ))
+
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("libtool" ,libtool)))
+
+   (inputs
+    `(("perl" , perl)))
+
+   (build-system gnu-build-system)
+   (synopsis "X2go")
+   (description "X2go")
+   (license "not checked")
+   (home-page "https://wiki.x2go.org")
+  )  
+)
+
+;(define-public glicid-gromacs-openmpi
+; (package
+;  (inherit gromacs)
+;  (name "glicid-gromacs-openmpi")
+;  (inputs `(("openmpi", openmpi)
+;                    ,@(package-inputs gromacs)))
+;  (build-system cmake-build-system)
+;  (arguments
+;       `(#:configure-flags configure-flags)
+;               (append configure-flags          (list "-DGMX_MPI=on"
+;               "-DCMAKE_C_COMPILER=mpicc"
+;               "-DCMAKE_CXX_COMPILER=mpiicxx"
+;               ))
+;  )
+; )
+;)
+
+
+(define-public glicid-gromacs-openmpi
+ (package
+  (inherit gromacs)
+  (name "glicid-gromacs-openmpi")
+  (inputs `(("openmpi", openmpi)
+   ;;         ("openssh", openssh) ;; only for tests... disabled now
+                    ,@(package-inputs gromacs)))
+  (build-system cmake-build-system)
+
+   (arguments
+       `(#:configure-flags
+         (list "-DGMX_DEVELOPER_BUILD=on" ; Needed to run tests
+               ;; Unbundling
+               "-DGMX_USE_LMFIT=EXTERNAL"
+               "-DGMX_BUILD_OWN_FFTW=off"
+               "-DGMX_EXTERNAL_BLAS=on"
+               "-DGMX_EXTERNAL_LAPACK=on"
+               "-DGMX_EXTERNAL_TNG=on"
+               "-DGMX_EXTERNAL_ZLIB=on"
+               "-DGMX_EXTERNAL_TINYXML2=on"
+               ;; special glicid
+               "-DGMX_MPI=on"
+               "-DCMAKE_C_COMPILER=mpicc"
+               "-DCMAKE_CXX_COMPILER=mpicxx"
+	       "-DGMX_DOUBLE=off"
+	       "-DGMX_OPENMP=on"
+               "-DGMX_SIMD=AVX2_256"
+               (string-append "-DTinyXML2_DIR="
+                              (assoc-ref %build-inputs "tinyxml2"))
+               ;; Workaround for cmake/FindSphinx.cmake version parsing that does
+               ;; not understand the guix-wrapped `sphinx-build --version' answer
+               (string-append "-DSPHINX_EXECUTABLE_VERSION="
+                              ,(package-version python-sphinx)))
+         #:tests? #f
+         #:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'fixes
+             (lambda* (#:key inputs #:allow-other-keys)
+               ;; Still bundled: part of gromacs, source behind registration
+               ;; but free software anyways
+               ;;(delete-file-recursively "src/external/vmd_molfile")
+               ;; Still bundled: threads-based OpenMPI-compatible fallback
+               ;; designed to be bundled like that
+               ;;(delete-file-recursively "src/external/thread_mpi")
+               ;; Unbundling
+               (delete-file-recursively "src/external/lmfit")
+               (delete-file-recursively "src/external/clFFT")
+               (delete-file-recursively "src/external/fftpack")
+               (delete-file-recursively "src/external/build-fftw")
+               (delete-file-recursively "src/external/tng_io")
+               (delete-file-recursively "src/external/tinyxml2")
+               (delete-file-recursively "src/external/googletest")
+               (copy-recursively (assoc-ref inputs "googletest-source")
+                                 "src/external/googletest")
+               ;; This test warns about the build host hardware, disable
+               (substitute* "src/gromacs/hardware/tests/hardwaretopology.cpp"
+                 (("TEST\\(HardwareTopologyTest, HwlocExecute\\)")
+                  "void __guix_disabled()"))
+               #t)))))
+
+
+
+  )
+
+)
+
+
+
+;; pour futures customisations.
+
+;(define-public glicid-openmpi-gcc-10
+; (package
+;  (inherit openmpi)
+;  (name "glicid-openpmi-gcc-10")
+;  (inputs `(("gcc-10", gcc-10)
+;            ("gfortran-11", gfortran-11)
+;                  ,@(package-inputs openmpi)))
+;  )
+;)
+
+
+(define-public glicid-gromacs-gcc-11
+ (package
+  (inherit gromacs)
+  (name "glicid-gromacs-gcc-11")
+  (version "2020.3")
+  (source 
+   (origin
+    (method url-fetch)
+    (uri (string-append "http://ftp.gromacs.org/pub/gromacs/gromacs-" version ".tar.gz"))
+    (sha256 (base32 "1acjrhcfzpqy2dncblhj97602jbg9gdha4q1bgji9nrj25lq6cch"))
+   ))
+
+  (inputs `(("gcc-11", gcc-11)
+            ("gfortran-11", gfortran-11)
+            ("glicid-openmpi-gcc-11", glicid-openmpi-gcc-11)
+                    ,@(package-inputs gromacs)))
+))
+
+
+(define-public glicid-python-nbxmpp
+ (package 
+  (inherit python-nbxmpp) 
+  (name "glicid-python-nbxmpp")
+  (version "1.0.2")
+  (source
+     (origin
+       (method url-fetch)
+       (uri (pypi-uri "nbxmpp" version))
+       (sha256
+        (base32
+         "0vw5drr077w9ks4crnw6pwa4735ycyjdcm54knc3w4in4x5027wr"))))
+
+))
+
+
+(define-public glicid-specific-hdf5
+  (package
+    (inherit hdf5-1.12)
+    (name "glicid-specific-hdf5")
+;    (arguments
+;     `(#:tests? #f)
+;   )
+      (native-inputs `(
+       ("gcc",gcc-11)
+       ("gfortran",gfortran-11)
+      ,@(package-native-inputs hdf5-1.12)))
+  )
+)  
+
+(define-public glicid-specific-hdf5-parallel-openmpi
+  (package/inherit glicid-specific-hdf5                      ;use the latest
+    (name "glicid-specific-hdf5-parallel-openmpi")
+    (inputs
+     `(("mpi" ,glicid-specific-openmpi)
+       ,@(package-inputs glicid-specific-hdf5)))
+    (arguments
+     
+;     `(
+;       #:tests? #f
+
+    ( 
+     substitute-keyword-arguments (package-arguments glicid-specific-hdf5)
+       ((#:configure-flags flags)
+        ``("--enable-parallel" "--disable-tests"
+           ,@(delete "--enable-cxx"
+                     (delete "--enable-threadsafe" ,flags))))
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-after 'build 'mpi-setup
+             ,%openmpi-setup)
+           (add-before 'check 'patch-tests
+             (lambda _
+               ;; OpenMPI's mpirun will exit with non-zero status if it
+               ;; detects an "abnormal termination", i.e. any process not
+               ;; calling MPI_Finalize().  Since the test is explicitly
+               ;; avoiding MPI_Finalize so as not to have at_exit and thus
+               ;; H5C_flush_cache from being called, mpirun will always
+               ;; complain, so turn this test off.
+               (substitute* "testpar/Makefile"
+                 (("(^TEST_PROG_PARA.*)t_pflush1(.*)" front back)
+                  (string-append front back "\n")))
+               (substitute* "tools/test/h5diff/testph5diff.sh"
+                 (("/bin/sh") (which "sh")))
+               #t))))
+
+))
+  
+
+
+    (synopsis "Management suite for data with parallel IO support")))
+
+
+
+(define-public glicid-specific-openblas
+  (package
+    (inherit openblas)
+    (name "glicid-specific-openblas")
+      (inputs `(
+       ("fortran-lib",gfortran-11 "lib")
+      ,@(package-inputs openblas)))
+      (native-inputs `(
+       ("gcc", gcc-11)
+       ("fortran" ,gfortran-11)
+     ,@(package-native-inputs openblas)))
+  )
+)
+
+(define-public glicid-vspecific-openblas
+  (package
+    (inherit openblas)
+    (name "glicid-vspecific-openblas")
+    (version "0.3.15")
+    (source
+     (origin
+     (method url-fetch)
+     (uri (string-append "https://github.com/xianyi/OpenBLAS/releases/download/v" version "/OpenBLAS-" version ".tar.gz" ))
+;       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1gjbkrsh6n28hdp2ciyjigc8vg764d2r0jbzl63v753mjzn9va9h"))))
+
+    (name "glicid-specific-openblas")
+      (inputs `(
+       ("fortran-lib",gfortran-11 "lib")
+      ,@(package-inputs openblas)))
+      (native-inputs `(
+       ("gcc", gcc-11)
+       ("fortran" ,gfortran-11)
+     ,@(package-native-inputs openblas)))
+  )
+)
+
+
+(define-public glicid-motif
+  (package
+    (name "glicid-motif")
+    (version "2.3.8")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://sourceforge.net/projects/motif/files/Motif%202.3.8%20Source%20Code/motif-2.3.8.tar.gz/download"))
+
+              (sha256 (base32 "1rxwkrhmj8sfg7dwmkhq885valwqbh26d79033q7vb7fcqv756w5"))
+             )
+    )
+    (build-system gnu-build-system)
+
+(arguments
+     `(#:make-flags
+;;	       #:make-flags
+       (list (string-append "PREFIX=" %output)
+;             (string-append "CC=" ,(cc-for-target))
+             ;; Xft.h #includes <ft2build.h> without ‘freetype2/’.  The Makefile
+             ;; works around this by hard-coding /usr/include & $PREFIX.
+             (string-append "CPPFLAGS=-I"
+                            (assoc-ref %build-inputs "freetype")
+                            "/include/freetype2")
+             "V=1")
+ )
+)
+
+(inputs
+      `(("libxext" ,libxext)
+        ("libx11", libx11)
+        ("freetype",freetype)
+	("libxft",libxft)
+        ("xbitmaps",xbitmaps)
+        ("pkg-config" ,pkg-config)
+	("flex" ,flex)
+	("bison" ,bison)
+        ("libxt" ,libxt)))
+
+  (synopsis "Motif")
+    (description "Motif ")
+    (home-page "https://sourceforge.net/untested")
+    (license " ")
+
+ )
+)
+
+(define-public glicid-xmgrace
+  (package
+    (name "glicid-xmgrace")
+    (version "5.1.25")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+              (url "https://oauth2:9i-PgbC2w_JEx6DUUqzf@gitlab.univ-nantes.fr/CCIPL/legacy_code_mirror/grace.git")
+              (commit (string-append "v" version))))
+              (sha256 (base32 "1wb8v0q8xa2akas0swpgdgw1s66i50k7kh1g2f894hnk91fzx56z"))
+             )
+    )
+    (build-system gnu-build-system)
+
+ (arguments
+     `(
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'configure 'patch-/bin/sh
+           (lambda _
+             (substitute* '("Make.conf")
+              (("/bin/sh") (which "bash"))
+             )
+           ) 
+         )
+        )
+       )
+      ) 
+
+    (inputs
+      `(
+        ("libx11", libx11)
+        ("libxft",libxft)
+        ("libxt",libxt)
+	("libxpm",libxpm)
+        ("libxext" ,libxext)
+        ("autoconf", autoconf)
+        ("glicid-motif" ,glicid-motif)
+        ("fontconfig", fontconfig)
+        ("gfortran", gfortran)
+        ("libjpeg-turbo", libjpeg-turbo)
+;;        ("libxmhtml", libxmhtml)
+       )
+    )
+
+
+   (synopsis "Xmgrace")
+   (description "xmgrace")
+   (home-page "https://sourceforge.net/untested")
+   (license " ")
+
+ )
+)
+
+(use-modules (guix packages))
+(use-modules (guix download))
+(use-modules (gnu packages ruby))
+(use-modules (guix build-system ruby))
+;(use-modules (guix licenses))
+
+
+
+(define-public ruby-asciidoctor-revealjs
+ (package
+  (name "ruby-asciidoctor-revealjs")
+  (version "4.1.0")
+  (source
+    (origin
+      (method url-fetch)
+      (uri (rubygems-uri "asciidoctor-revealjs" version))
+      (sha256
+        (base32
+          "03vmbcc3x059h17ry4qwk1p0yar9wgh87l2qssi307gy45cjw2mq"))))
+  (build-system ruby-build-system)
+  (arguments
+ '(#:tests? #f)) 
+  (propagated-inputs
+    `(("ruby-asciidoctor" ,ruby-asciidoctor)
+;      ("ruby-concurrent-ruby" ,ruby-concurrent-ruby)
+       ("ruby-concurrent" ,ruby-concurrent)
+       ("ruby-asciidoctor-kroki", ruby-asciidoctor-kroki)
+      ("ruby-thread-safe" ,ruby-thread-safe)))
+  (synopsis
+    "Converts AsciiDoc documents into HTML5 presentations designed to be executed by the reveal.js presentation framework.")
+  (description
+    "Converts AsciiDoc documents into HTML5 presentations designed to be executed by the reveal.js presentation framework.")
+  (home-page
+    "https://github.com/asciidoctor/asciidoctor-reveal.js")
+  (license license:expat))
+)
+
+(define-public ruby-asciidoctor-kroki
+(package
+  (name "ruby-asciidoctor-kroki")
+  (version "0.4.0")
+  (source
+    (origin
+      (method url-fetch)
+      (uri (rubygems-uri "asciidoctor-kroki" version))
+      (sha256
+        (base32
+          "13gx22xld4rbxxirnsxyrsajy9v666r8a4ngms71611af5afgk6w"))))
+  (build-system ruby-build-system)
+  (arguments
+  '(#:tests? #f))  
+  (propagated-inputs
+    `(("ruby-asciidoctor" ,ruby-asciidoctor)))
+  (synopsis
+    "An extension for Asciidoctor to convert diagrams to images using https://kroki.io")
+  (description
+    "An extension for Asciidoctor to convert diagrams to images using https://kroki.io")
+  (home-page
+    "https://github.com/Mogztter/asciidoctor-kroki")
+  (license license:expat)
+)
+)
+
+
+(use-modules (guix packages))
+(use-modules (guix download))
+(use-modules (gnu packages linux))
+(use-modules (gnu packages gcc))
+;;(use-modules (gnu packages glicid))
+(use-modules (gnu packages ssh))
+(use-modules (gnu packages hurd))
+(use-modules (guix build-system gnu))
+(use-modules (guix build-system cmake))
+(use-modules (gnu packages compression))
+(use-modules (gnu packages crypto))
+(use-modules (gnu packages tls))
+;;(use-modules (gnu packages glicid))
+(use-modules (gnu packages pkg-config))
+
+
+(use-modules ((guix licenses) #:prefix license:))
+
+
+(define-public glicid-libcbor
+ (package
+  (name "glicid-libcbor")
+  (version "0.8.0")
+(source 
+   (origin
+
+(method url-fetch)
+              (uri (string-append
+               "http://github.com/PJK/libcbor/archive/refs/tags/v" version ".tar.gz"))
+ (sha256
+               (base32
+                "12vw46ahhsc3ydnivkv5lvk1cn4sjjmcr639cjcl99d4dqb9g031"))
+
+))
+(build-system cmake-build-system)
+
+(arguments
+  `(#:configure-flags (list "-DCMAKE_CXX_FLAGS=-fPIE"
+             "-DCMAKE_C_FLAGS=-fPIE")))
+
+
+(synopsis "libfido2")
+(description "Todo")
+(home-page "toto")
+(license license:gpl2+)
+
+
+))
+
+
+(define-public glicid-libfido2
+ (package
+
+  (name "glicid-libfido2")
+  (version "1.8.0")
+  (source 
+   (origin
+
+(method url-fetch)
+              (uri (string-append "https://developers.yubico.com/libfido2/Releases/libfido2-"
+                    version ".tar.gz"))
+;              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "07gxyy5yzgfh5hg7q9fr77z5mkj0xjvd5ya7p5f5kar4iwc92hjm"))
+
+
+   ))
+
+   (build-system cmake-build-system)
+   (arguments '(#:tests? #f))
+
+
+(inputs `(
+          ("glicid-libcbor",glicid-libcbor)
+          ("openssl",openssl)
+          ("zlib", zlib)
+          ("pkg-config", pkg-config) ; or cmake won't find zlib !
+          ("eudev", eudev)
+
+      ))
+
+(synopsis "libfido2")
+(description "Todo")
+(home-page "toto")
+(license license:gpl2+)
+)
+
+)
+
+
+(define-public glicid-specific-openssh
+  (package
+    (inherit openssh)
+    (name "glicid-specific-openssh")
+(arguments
+
+      `(#:test-target "tests"
+      ;; Otherwise, the test scripts try to use a nonexistent directory and
+      ;; fail.
+         #:make-flags '("REGRESSTMP=\"$${BUILDDIR}/regress\"")
+
+         #:configure-flags  `("--sysconfdir=/etc/ssh"
+
+                           ;; Default value of 'PATH' used by sshd.
+                          "--with-default-path=/run/current-system/profile/bin"
+
+                          ;; configure needs to find krb5-config.
+                          ,(string-append "--with-kerberos5="
+                                          (assoc-ref %build-inputs "mit-krb5")
+                                          "/bin")
+
+                          ;; libedit is needed for sftp completion.
+                          "--with-libedit"
+                          ;; for u2f
+                          "--with-security-key-builtin"
+;                          ,(string-append "--with-fido2=" (assoc-ref %build-inputs "libfido2"))
+
+                          ;; Enable PAM support in sshd.
+                          ,,@(if (hurd-target?)
+                               '()
+                               '("--with-pam"))
+
+                          ;; "make install" runs "install -s" by default,
+                          ;; which doesn't work for cross-compiled binaries
+                          ;; because it invokes 'strip' instead of
+                          ;; 'TRIPLET-strip'.  Work around this.
+                          ,,@(if (%current-target-system)
+                                 '("--disable-strip")
+                                 '()
+))
+
+
+#:phases
+      (modify-phases %standard-phases
+        (add-after 'configure 'reset-/var/empty
+         (lambda* (#:key outputs #:allow-other-keys)
+           (let ((out (assoc-ref outputs "out")))
+             (substitute* "Makefile"
+               (("PRIVSEP_PATH=/var/empty")
+                (string-append "PRIVSEP_PATH=" out "/var/empty")))
+             #t)))
+        (add-before 'check 'patch-tests
+         (lambda _
+           (substitute* "regress/test-exec.sh"
+             (("/bin/sh") (which "sh")))
+
+           ;; Remove 't-exec' regress target which requires user 'sshd'.
+           (substitute* (list "Makefile"
+                              "regress/Makefile")
+             (("^(tests:.*) t-exec(.*)" all pre post)
+              (string-append pre post)))
+           #t))
+        (replace 'install
+         (lambda* (#:key outputs (make-flags '()) #:allow-other-keys)
+           ;; Install without host keys and system configuration files.
+           (apply invoke "make" "install-nosysconf" make-flags)
+           (install-file "contrib/ssh-copy-id"
+                         (string-append (assoc-ref outputs "out")
+                                        "/bin/"))
+           (chmod (string-append (assoc-ref outputs "out")
+                                 "/bin/ssh-copy-id") #o555)
+           (install-file "contrib/ssh-copy-id.1"
+                         (string-append (assoc-ref outputs "out")
+                                        "/share/man/man1/"))
+           #t))) ; ))
+
+
+)
+   )
+
+(inputs `(("glicid-libfido2", glicid-libfido2)
+          ("glicid-libcbor", glicid-libcbor)
+      ,@(package-inputs openssh)))
+
+
+
+  )
+
+
+)
+
+
+;;; glicid.scm ends here
diff --git a/glicid/packages/virtualization.scm b/glicid/packages/virtualization.scm
index 20ea028..e3690c8 100644
--- a/glicid/packages/virtualization.scm
+++ b/glicid/packages/virtualization.scm
@@ -3,24 +3,12 @@
   #:use-module (glicid packages storage)
 )
 
-
 ;;;;;;;;
 
 
-;(define-public glicid-qemu
-;
-;  (package
-;    (inherit qemu)
-;    (name "glicid-qemu")
-;  )
-; )
-
-
 (define-public qemu-with-rbd
 
-
   (package
-;    (inherit glicid-qemu)
     (inherit qemu) 
     (name "qemu-with-rbd")
     (arguments
@@ -36,5 +24,4 @@
  )
 )
 
-
 ;;; glicid/virtualizationvirtualization.scm ends here
diff --git a/glicid/packages/virtualization.scm~ b/glicid/packages/virtualization.scm~
index 5d17493..824bd71 100644
--- a/glicid/packages/virtualization.scm~
+++ b/glicid/packages/virtualization.scm~
@@ -1,119 +1,16 @@
 (define-module (glicid packages virtualization)
-  #:use-module (guix packages)
-  #:use-module (guix download)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system gnu)
-  #:use-module (guix build-system cmake)
-;  #:use-module (guix licenses)
-  #:use-module (gnu packages gawk)
-  #:use-module (gnu packages gcc)
-  #:use-module (gnu packages commencement)
-  #:use-module (guix build-system python)
-  #:use-module ((guix licenses) #:prefix license:)
-  #:use-module ((guix utils) #:select (target-64bit?))
-  #:use-module (gnu packages)
-  #:use-module (gnu packages admin)
-  #:use-module (gnu packages autotools)
-  #:use-module (gnu packages base)
-  #:use-module (gnu packages freeipmi)
-  #:use-module (gnu packages linux)
-  #:use-module (gnu packages mpi)
-  #:use-module (gnu packages perl)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages parallel)
-  #:use-module (gnu packages storage)
-  #:use-module (gnu packages networking)
-  #:use-module (gnu packages gtk)  
-  #:use-module (gnu packages python)
-  #:use-module (gnu packages python-science)
-  #:use-module (gnu packages python-web)
-  #:use-module (gnu packages python-xyz)
-  #:use-module (gnu packages readline)
-  #:use-module (gnu packages tcl)
-  #:use-module (gnu packages tls)
-  #:use-module (gnu packages commencement)
-  #:use-module (gnu packages gcc)
-  #:use-module (gnu packages chemistry)
-  #:use-module (gnu packages sphinx)
-  #:use-module (srfi srfi-1)
-  #:use-module (gnu packages mpi)
-  #:use-module (gnu packages sssd)
-  #:use-module (gnu packages fabric-management)
-  #:use-module (gnu packages benchmark)
-  #:use-module (gnu packages messaging)
-  #:use-module (gnu packages web)
-  #:use-module (gnu packages gnome)
-  #:use-module (gnu packages cluster)  
-  #:use-module (gnu packages libevent)
-  #:use-module (gnu packages xorg)
-  #:use-module (gnu packages fontutils)
-  #:use-module (gnu packages flex)
-  #:use-module (gnu packages bison)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages autotools)
-  #:use-module (gnu packages fontutils)
-  #:use-module (guix build-system gnu)
-  #:use-module (gnu packages image)
-  #:use-module (gnu packages maths)     
-  #:use-module (guix utils)
-  #:use-module (gnu packages cmake)
-  #:use-module  (gnu packages pretty-print)
-  #:use-module (gnu packages boost)
-  #:use-module (gnu packages curl)
-  #:use-module (gnu packages cryptsetup)
-  #:use-module (gnu packages xml)
-  #:use-module (gnu packages admin)
-  #:use-module (gnu packages assembly)
-  #:use-module (gnu packages authentication)
-  #:use-module (gnu packages bdw-gc)
-  #:use-module (gnu packages boost) 
-  #:use-module (gnu packages compression)
-  #:use-module (gnu packages crypto)
-  #:use-module (gnu packages cryptsetup)
-  #:use-module (gnu packages curl)
-  #:use-module (gnu packages databases)
-  #:use-module (gnu packages disk)
-  #:use-module (gnu packages gperf)
-  #:use-module (gnu packages jemalloc)
-  #:use-module (gnu packages linux)   
-  #:use-module (gnu packages lua)     
-  #:use-module (gnu packages ncurses) 
-  #:use-module (gnu packages networking)
-  #:use-module (gnu packages nss)
-  #:use-module (gnu packages openldap)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages python)
-  #:use-module (gnu packages python-xyz)
-  #:use-module (gnu packages sphinx)
-  #:use-module (gnu packages tls)   
-  #:use-module (gnu packages web)   
-;;  #:use-module (gnu packages glicid)
-  #:use-module (gnu packages pretty-print)
   #:use-module (gnu packages virtualization)
   #:use-module (glicid packages storage)
-  #:use-module (glicid packages mpi)
-  #:use-module (glicid packages gcc)
-  
 )
 
 
 ;;;;;;;;
 
 
-;(define-public glicid-qemu
-;
-;  (package
-;    (inherit qemu)
-;    (name "glicid-qemu")
-;  )
-; )
-
-
 (define-public qemu-with-rbd
 
 
   (package
-;    (inherit glicid-qemu)
     (inherit qemu) 
     (name "qemu-with-rbd")
     (arguments
@@ -129,5 +26,4 @@
  )
 )
 
-
 ;;; glicid/virtualizationvirtualization.scm ends here