No Xians Here

main() {
    auto cx, cy, x, y, x2, y2;
    auto iter;
    auto xmin, xmax, ymin, ymax, maxiter, dx, dy;

    xmin = -8601;
    xmax =  2867;
    ymin = -4915;
    ymax =  4915;

    maxiter = 32;

    dx = (xmax - xmin) / 79;
    dy = (ymax - ymin) / 24;

    cy = ymin;
    while (cy <= ymax) {
        cx = xmin;
        while (cx <= xmax) {
            x = 0;
            y = 0;
            x2 = 0;
            y2 = 0;
            iter = 0;
            while (iter < maxiter) {
                if (x2 + y2 > 16384)
                    goto next;

                y = ((x * y) / 2048) + cy;
                x = x2 - y2 + cx;
                x2 = (x * x) / 4096;
                y2 = (y * y) / 4096;
                iter++;
            }
next:
            write(' ' + iter);
            cx = cx + dx;
        }
        write('*n');
        cy = cy + dy;
    }
    return(0);
}

$ dubna mandelbrot.dub
...
!!!!!!!!!!!!!!!"""""""""""""####################################""""""""""""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$$%'+)%%%$$$$$#####"""""""""""
!!!!!!!!!!!"""""""#######################$$$$$$$$%%%&&(+,)++&%$$$$$$######""""""
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*5:/+('&%%$$$$$$#######"""
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''),@@@@@@@,'&%%%%%$$$$########
!!!!!!!"""####################$$$$$$$$%%%&'())((())*,@@@@@@/+))('&&&&)'%$$######
!!!!!!""###################$$$$$%%%%%%&&&'+.@@=/<@@@@@@@@@@@@@@@/++@..93%%$#####
!!!!!"################$$$%%%%%%%%%%&&&&'),+2@@@@@@@@@@@@@@@@@@@@@@@@@1(&&%$$####
!!!!"##########$$$$$%%&(-(''''''''''''(*,5@@@@@@@@@@@@@@@@@@@@@@@@@@@@+)-&%$$###
!!!!####$$$$$$$$%%%%%&'(*-@1.+.@-4+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4-(&%$$$##
!!!!#$$$$$$$$$%%%%%%'''++.6@@@@@@@@@8/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@3(%%$$$$#
!!!#$$$$$$$%&&&&''()/-5.5@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?'&%%$$$$#
!!!(**+/+<523/80/46@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+)'&&%%$$$$#
!!!#$$$$$$$%&&&&''().-2.@@@@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'&%%$$$$#
!!!!#$$$$$$$$$%%%%%&'''/,.7@@@@@@@@@;/0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0'%%$$$$#
!!!!####$$$$$$$$%%%%%&'(*-:2.,/?-5+))**@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@4+(&%$$$##
!!!!"##########$$$$$%%&(-(''''(''''''((*,4@@@@@@@@@@@@@@@@@@@@@@@@@@@4+).&%$$###
!!!!!"################$$$%%%%%%%%%%&&&&')<,4@@@@@@@@@@@@@@@@@@@@@@@@@/('&%%$####
!!!!!!""##################$$$$$$%%%%%%&&&'*.@@@0@@@@@@@@@@@@@@@@1,,@//9)%%$#####
!!!!!!!"""####################$$$$$$$$%%%&(())((()**-@@@@@@/+)))'&&&')'%$$######
!!!!!!!!""""#####################$$$$$$$$$$%%%&&&''(,@@@@@@@+'&&%%%%%$$$########
!!!!!!!!!"""""#######################$$$$$$$$$$%%%%&')*7@0+('&%%%$$$$$#######"""
!!!!!!!!!!!"""""""######################$$$$$$$$$%%%&&(+-).*&%$$$$$$######""""""
!!!!!!!!!!!!!"""""""""#######################$$$$$$%%'3(%%%$$$$$######""""""""""
!!!!!!!!!!!!!!!""""""""""""#####################################""""""""""""""""

*name B compiler
*tape:7/b,40
*library:40
*trans-main:40020
main() {
    printf("Hello, B!*n");
}
*execute
*end file

$ dubna b.dub
...
*NAME B COMPILER
*TAPE:7/*,40
*LIBRARY:40
*TRANS-MAIN:40020
                     OVERLAY OT  20/04/25
B COMPILER FOR BESM-6, VERSION 04/2025
COMPILED 3 LINES OF CODE, FOUND 0 ERRORS

*NO LIST
*CALL BLOCKERR
*MADLEN
 MAIN          CP 0.0,      ST 0.0,      RT     1.0*
*READ OLD
*EXECUTE
      *LIBRA:40 = B/DIV       B/EQ        B/GT        B/LT        B/MUL       B/NE        B/RET       B/SAVE0     B/SAVE
      B/TOUT      B/TRUE      CHAR        PRINTD      PRINTO      PRINTF      WRITE       WRITEB      OUT*CNT     OUT*SHFT
      OUT*BUFF    FLUSH       FOUT
≠
         MAIN       01000                PRINTD     01413                B/MUL      01757                ISOTCOSY   06002
         PROGRAM  E 01000                PRINTO     01466                B/GT       01766                ISOTCOS1 E 06053
         B/SAVE0    01011                WRITE      01517                FOUT       01771                DRUMTAP*   06073
         B/RET      01016                B/TRUE     01622                WRCARD     01772                CHKWORD* C 06124
         PRINTF     01023                OUT*CNT    01623                WRWORD   E 02014                PRINT8     06125
         B/SAVE     01256                OUT*SHFT   01624                WBEGIN   E 02033                STOP*      06306
         CHAR       01263                OUT*BUFF   01625                WRIEND   E 02042                EXIT     E 06307
         B/NE       01301                FLUSH      01654                B/TOUT     02075                CBOБOДHO   06335
         B/EQ       01304                B/LT       01744                WRWORD/  C 04000
         WRITEB     01307                B/DIV      01747                XWRITE/  C 06000
≠
HELLO, B!

    writeb: ,name,
         12 ,base,*
c
c Append one byte to output buffer.
c
 b/output:lc,block, w_count, b_shift, buffer(22)
c
    flush:  ,subp,
            ,aax, =377
            ,aex, =12       . compare to linefeed
            ,uza, flush
            ,aex, =12
c
            ,utc, w_count
            ,xts,
            ,aex, =26       . 22 words
            ,u1a, putchar
            ,ita, 13
            ,its,
            ,call, flush
            ,sti,
            ,ati, 13
c
 putchar:   ,bss,           . append byte to buffer
            ,sti,
         11 ,vtm, b/output
         11 ,wtc, 1         . b_shift
            ,asn, 64-40     . shift left
         11 ,wtc, 0         . w_count
         11 ,aox, 2         . read word from buffer
         11 ,wtc, 0         . w_count
         11 ,atx, 2         . write word to buffer
c
         11 ,xta, 1         . b_shift
            ,aex, =50
            ,uza, next_w
            ,aex, =50
            ,arx, =10       . increase shift
         11 ,atx, 1         . b_shift
         13 ,uj,
c
 next_w:    ,bss,           . advance to next word
         11 ,atx, 1         . clear b_shift
         11 ,xta, 0         . w_count
            ,arx, =1        . increment word count
         11 ,atx, 0         . w_count
         13 ,uj,
            ,end,

/*
 * Append one byte to output buffer.
 */
writeb(b) {
    extrn out_cnt, out_shft, out_buff;
    auto p;

    b = b & 0377;
    if (b == '*n') {
        flush();
        return;
    }

    if (out_cnt == 22) {
        flush();
    }

    p = &out_buff[out_cnt];
    *p = *p | (b << (40 - out_shft));

    if (out_shft == 40) {
        /* next word */
        out_shft = 0;
        ++out_cnt;
    } else {
        /* next byte */
        out_shft = out_shft + 8;
    }
}

out_cnt;
out_shft;
out_buff[22];

SiMa.ai

• Adopt merit-based hiring policies; end preferences based on race, religion, or other characteristics.
• Review all faculty for plagiarism and ensure consistent enforcement.
• Share hiring data with the federal government for audit.
• Implement merit-based admissions without race-based preferences.
• Provide admissions data for public and government review.
• Deans of admissions must certify compliance after each admissions cycle.
• Screen international students to prevent those hostile to US values from being admitted.
• Prevent admitting students hostile to the American values and institutions inscribed in the US Constitution and Declaration of Independence, including students supportive of terrorism or antisemitism
• Report any violations of conduct by foreign students to federal authorities.
• Commission an audit of faculty, staff, and students for viewpoint diversity.
• Hire or admit a diverse range of viewpoints where needed, making changes to achieve diversity in each department.
• Audit programs that fuel antisemitic harassment or show ideological bias.
• Programs like the Divinity School, Harvard Law, and the School of Public Health are a focus.
• Identify faculty who incite violations and enforce sanctions where necessary.
• End all diversity, equity, and inclusion (DEI) programs and policies.
• Demonstrate to the federal government that these reforms are permanent and effective.
• Enforce discipline policies consistently, without bias.
• Ban and discipline student groups endorsing criminal activities or promoting violence.
• Institute a comprehensive mask ban with penalties for violations.
• Whistleblower Reporting and Protections:
• Establish a system for affiliates to report non-compliance with reforms.
• Ensure whistleblowers are protected from retaliation.

• Принять политику найма на основе заслуг; положить конец предпочтениям, основанным на расе, религии или других характеристиках.
• Проверить всех преподавателей на плагиат и обеспечить последовательное исполнение.
• Предоставить данные о найме федеральному правительству для аудита.
• Внедрить прием на основе заслуг без предпочтений, основанных на расе.
• Предоставить данные о приеме для проверки общественностью и правительством.
• Деканы приемных комиссий должны подтверждать соблюдение требований после каждого цикла приема.
• Проверять иностранных студентов, чтобы не допустить приема тех, кто враждебно относится к ценностям США.
• Не допускать приема студентов, враждебно относящихся к американским ценностям и институтам, прописанным в Конституции США и Декларации независимости, включая студентов, поддерживающих терроризм или антисемитизм
• Сообщать о любых нарушениях поведения иностранными студентами федеральным органам власти.
• Заказать проверку преподавателей, сотрудников и студентов на предмет разнообразия точек зрения.
• При необходимости нанимайте или допускайте широкий спектр точек зрения, внося изменения для достижения разнообразия в каждом отделе.
• Аудит программ, которые подпитывают антисемитские преследования или демонстрируют идеологическую предвзятость.
• Такие программы, как Школа богословия, Гарвардский юридический факультет и Школа общественного здравоохранения, находятся в центре внимания.
• Выявляйте преподавателей, которые подстрекают к нарушениям, и применяйте санкции, когда это необходимо.
• Прекращайте все программы и политику разнообразия, равенства и инклюзивности (DEI).
• Демонстрируйте федеральному правительству, что эти реформы являются постоянными и эффективными.
• Последовательно и беспристрастно применяйте дисциплинарную политику.
• Запрещать и наказывать студенческие группы, поддерживающие преступную деятельность или пропагандирующие насилие.
• Вводите всеобъемлющий запрет на ношение масок со штрафами за нарушения.
• Сообщения о нарушениях и защита осведомителей:
• Создайте систему, позволяющую филиалам сообщать о несоблюдении реформ.
• Обеспечьте защиту осведомителей от преследований.

main() {
    auto ch;

    while (ch = read()) {
        write(ch);
    }
}

$ bbesm < cat.b > cat.madlen
$ cat cat.madlen
 main:8,name,
 program:,entry,
 main:,bss,
 b/save0:,subp,
 b/ret:,subp,
    ,its,13
    ,call,b/save0
  15,utm,1
 /0:,bss,
   7,utc,0
  14,vtm,
    ,ita,14
 read:,subp,
  14,vtm,read
    ,its,14
    ,ati,14
  14,utc,
  13,vjm,
  15,wtc,
    ,atx,
    ,uza,/1
 write:,subp,
  14,vtm,write
    ,ita,14
   7,utc,0
  14,vtm,
    ,its,14
    ,ati,14
  14,xta,
  14,vtm,-1
  15,wtc,
  13,vjm,
    ,uj,/0
 /1:,bss,
    ,uj, b/ret
    ,end,

$ besmc cat.madlen libb.obj

$ ./cat.exe < cat.b 
MAIN() [
    AUTO CH;

    WHILE (CH = READ()) [
        WRITE(CH);
    ]
]

$ bbesm < e-2.b > e-2.madlen
$ besmc e-2.madlen libb.obj
$ time ./e-2.exe
71828 18284 59045 23536 02874 71352 66249 77572 47093 69995
...
88683 31483 28027 06553 83300 46932 90115 74414 75631 39997

real	0m18.310s
user	0m18.302s
sys	0m0.008s

$ dubna e-2.dub
...
≠
 71828 18284 59045 23536 02874 71352 66249 77572 47093 69995
...
 88683 31483 28027 06553 83300 46932 90115 74414 75631 39997
------------------------------------------------------------
   Elapsed time: 12.3 seconds
      Simulated: 626677681 instructions
Simulation rate: 51010913 instructions/sec