<Fiora> addquote <Phantom_Hoover> Sgeo_, are you just trying to post kmcbait... *Fiora imagines a cardboard box propped up by a stick with a pile of monads inside. <elliott> Fiora: that is actually what Haskell is.

#!/bin/sh
allquotes | if [ "$1" ]; then
    if expr "$1" + 0 >/dev/null 2>&1; then
        sed "$1q;d"
    else
        grep -P -i -- "$1"
    fi
else shuf -n 1; fi