yko

#include "trident.h"

int main(void)
{
  ROOT = create_node(' ',YES);
  printf("ROOT addr:%X\n",ROOT);
  char* a = "he";
  insert_node(a,ROOT);
  insert_node("你好",ROOT);
  insert_node("中国",ROOT);

yko

#use strict;

sub Vacancy_Menu {

################################################################################
### Выборка из таблиц по заданным параметрам
my $data=$dbh->prepare("SELECT * FROM ${pref}_rubrika ORDER BY stepshift ASC");
$data->execute();

if ($my{'c'} eq ''){

yko

set background=dark

hi clear

if exists("syntax_on")
  syntax reset
endif

let colors_name = "kraihlight"

yko

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

use List::Util qw/reduce/;

use Mojolicious::Lite;