>perl -e 'print join"="x40 ."\n",map~~`fortune`,1..pop' 30