procedure main()
    write(if 0 = ishift(1,-1) then "little" else "big"," endian")
    if match("flags",line := !open("/proc/cpuinfo")) then    # Unix-like only
        write(if find(" lm ",line) then 64 else 32," bits per word")
    else write("Cannot determine word size.")
end