w( "iPhone " )
2150678
digits
empty-list
w( "" "SE " )
w( "(1st" "(2nd" "(3rd" )
w( " gen)" )
cartesian-product
cartesian-product
"C"
left-cons
"R"
left-cons
right-cons
select
4
16
crange
lines
"X"
itemize
join
map-show
( "3G" )
left-cons
( "\xc2BRc\xe0`\x00RD\xccL\xe4d" )
{
    itemize
    "S"
    inits
    w( "" " Plus" "0" " mini" " Pro" )
    cartesian-product
    cartesian-product
    "0"
    left-cons
    swap
    binary #(num to list)
    8
    0
    rjust
    compress
    extract-array
    counter
    7
    >
        dup
        ( " Max" )
        catenate #(list+list)
    f3
}
zipwith
unlines
"0"
split
zip
flatten
lines
cartesian-product
unlines