perl -le '@w=grep{length()>5&&length()<8&&/^[a-z]+$/}<>;chomp@w;print join" ",map{$w[rand@w]}1..4'</usr/share/dict/words