# code: http://golf.shinh.org/reveal.rb?Electron+Configuration/tails_1708060697&nbb
# target Nibbles version: 1.00
# commenter version: 0.1.2.181

. #(map):[[[chr]]] 
    =\ #(scanl):[int] 
        : #(append):[int] 
            0 #(integer):int 
            : #(append):[int] 
                . #(map):[int] 
                    , #(range from 1):[int] 
                        8 #(integer):int 
                    2 #(integer):int <--arg( A:int ) 
                + #(add):[int] 
                    4 #(integer):int 
                    \ #(reverse):[int] 
                        `D #(to base from data):[int] 
                            9 #(to base from data arg):null 
        1 #(integer):int <--arg( C:int B:int ) 
        + #(add):int <--arg( E:int D:int ) 
            * #(multiply):int 
                ^ #(pow):int 
                    - #(subtract):int 
                        2 #(integer):int 
                        _ #(= fstInt):int 
                    `% #(moddiv):int -->let( F:int ) 
                        $ #(= E):int 
                        ~ #(auto = 2):auto 
                ^ #(pow):int 
                    ;$ #(= fstInt):int 
                    $ #(= F):int 
            _ #(= D):int 
    + #(concat):[[chr]] <--arg( G:int ) 
        ! #(zip with):[[[chr]]] 
            , #(range from 1):[int] 
                ~ #(auto = infinity):auto 
            \ #(reverse):[int] <--arg( H:int ) 
                `@ #(to base):[int] 
                    _ #(= fstInt):int 
                    @ #(= G):int 
            ~ #(zipop: by):null 
            . #(map):[[chr]] <--arg( J:int I:int ) 
                ! #(zip with):[[chr]] 
                    "spdf" #(string):[chr] 
                    | #(filter):[int,int] <--arg( K:chr ) 
                        =\ #(scanl):[int,int] 
                            , #(range from 1):[int] 
                                4 #(integer):int 
                            ~ #(tuple):int,int 
                                0 #(integer):int 
                                _ #(= I):int 
                            #(implicit tuple):int,int <--arg( N:int M:int L:int ) 
                                ; #(save):int -->let( O:int ) 
                                    [ #(min):int 
                                        _ #(= L):int 
                                        - #(subtract):int 
                                            * #(multiply):int 
                                                4 #(integer):int 
                                                $ #(= N):int 
                                            2 #(integer):int 
                                - #(subtract):int 
                                    ;$ #(= L):int 
                                    $ #(= O):int 
                        $ #(= Q):int <--arg( Q:int P:int ) 
                    : #(zipop: cons):null 
                : #(append):[chr] <--arg( R:[chr] ) 
                    @ #(= J):int 
                    $ #(= R):[chr] 
#(postdata (hex): to base from data)
22f9073c5ada8a442182e91f60710e72e4baed685a15094bda95d433ec7ec504313502d