(define h html)
(define (bold . co) [html b [kw] co])
(define (ul . co) [html :ul [kw] co] )

print

  [h body [kw]
    [h h1 [kw] "jopa kita" ]
    [h br]

    [h p [kw] [bold current time:] (now)]

    [h p [kw]
      "МАМА МЫЛА РАМУ А У ПАПЫ ЗАПОЙ"
      [h a [kw href http://localhost:5000/] LOCALHOST ]
      [h br]

      Тут конечно надо все элементы пробивать пробелами,
      и это легко сделать!

      [ul
        [map [fn 1 [html li [kw] [car _1] ]  ] [grep NIX [env]]]
      ]

    ]
  ]