ekipan

  - SDF JKL layout keeps me on home row, ready to type Forth.
  - 39 columns source text to fit the C64 screen.
  - `0 prof` patches the first instruction to an `rts`,
    disabling the profiler. `1 prof` restores the `eor`.
  - The `dup 0= +` phrase ensures nonzero seed, harmless but
    it's cute and I've grown fond of it.
  - Might be able to spread `land` work across frames but the
    complexity isn't worth it.
  - I choose the extra `rdrop` cognitive load just for its
    aesthetic.
  - <!-- It's better left unsaid. -->

  (f . g) x = f (g x)

  const x y = x

    length = foldr (+) 0 . map (const 1)
    length2d = foldr (+) 0 . map length

    -- and the proposed syntax the author calls more readable:
    length = foldr((+), 0, $) . map(const(1), $)
    length2d = foldr((+), 0, $) . map(length, $)

    length = (.)(foldr((+)($, $), 0, $), map(const(1, $), $), $)
    length2d = (.)(foldr((+)($, $), 0, $), map(length($), $), $)

  $ echo '*\n!.gitignore' > build/.gitignore

  alias words='iftty xargs'   # join by spaces
  alias c='compgen -c | sort -u | words' # eg: c | grep ^k | chop
  # ... a for aliases, f for functions etc ...
  alias man='g !archman'      # https://man.archlinux.org
  alias ,aw='g !aw'           # https://wiki.archlinux.org
  alias ,mdn='g !mdn'         # https://developer.mozilla.org
  alias ,nix='g !nixpkgs'     # https://search.nixos.org
  # ... a dozen others ...

  g() { local IFS=+; xdg-open "https://ddg.gg/?q=$*"; }
  iftty() { if [ -t 1 ]; then "$@"; else cat; fi; }

  chop() { # [TABS] [STARTCOL] [CUTOPTS..] # eg. ls ~/.co* | chop
    set -- "${1:-2}" "${2:-1}" "${@:3}"
    cut -c "$2"-$(($2+8*$1-2)) "${@:3}" | column #| less
  }

  clashes() { # [CMDS..] # print overloads eg: clashes $(c)
    (($#)) || set -- $(compgen -A alias -A function)
    local ty cmd; for cmd; do ty=($(type -at "$cmd"))
    ((${#ty[@]}>1)) && echo -n "$cmd "; done; echo
  }

    f x = let y = x + 1 in y + 1

    const f = (x) => {
      const y = x + 1;
      return y + 1;
    }