Elvish – An experimental Unix shell in Go(github.com)

  (-> 2
      addOne
      timesTwo
      str
      reverse
      (apply str)
      println)

    put 1 2 3 4 5 | filter -> > $1 2 | map -> * 2 $1

    cat <<eof\
     | while read a;do if [[ $a -gt 2 ]];then echo $a;fi; done \
     |while read b;do echo $((b*2));done
    1
    2
    3
    4
    5
    eof

    seq 5 \
    | while read a;do if [[ $a -gt 2 ]];then echo $a;fi; done \
    | while read b;do echo $((b*2));done

    # Ok, this is a bit odd, the filter is actually inverse...
    filter()
    {
        while read it
        do
          #NOT SAFE!!
          if eval ${*}
          then
            echo "${it}"
          fi
        done
    }

    map()
    {
        while read it
        do
          #NOT SAFE!!
          eval ${*}
          echo "${it}"
        done
    }

    #Valid bash:
    seq 5 \
    | filter test '$it' -gt 2 \
    | map 'it=$((it*2))'

  (def lols (->> strs
                 (filter #(re-find #"LOL" %))
                 (map upper-case)
                 sort))

    CL-USER 7 > + (sin 1) (cos 2)
    0.4253241

    > / 1 -0
    -Inf