( "Zero-Cx B / Free PublicL1.0.0 (0B)" )
swap
read-nums
    nip
    show
    dup
    p( "-cx BL(B-%s-Cx)" )
    catenate #(list+list)
b5
each
s( "B" "BSD" )
s( "L" " License " )
s( "x" "lause" )