f.sh

all() {
  case $# in
    0) false ;;
    *) (
      result=0
      while read x; do
        if ! "$@" "$x"; then
          result=1
        fi
      done
      return "$result"
    ) ;;
  esac
}

any() {
  case $# in
    0) false ;;
    *) (
      result=1
      while read x; do
        if "$@" "$x"; then
          result=0
        fi
      done
      return "$result"
    ) ;;
  esac
}

list() {
  case $# in
    1) (
      lit "$1" |
        while read x; do
          printf %s\\n "$x"
        done
    ) ;;
    *) false ;;
  esac
}

lit() {
  case $# in
    1) printf %s "$1" ;;
    *) false
  esac
}

safety() {
  case "$#" in
    0) false ;;
    *) (
      "$@"
      result="$?"
      printf -- ---
      return "$result"
    ) ;;
  esac
}

listpad() {
  case "$#" in
    0) (
      while read x; do
        printf %s\\n "$x"
      done
      lit ---
    ) ;;
    *) false ;;
  esac
}