perl -le '@w=<>;chomp@w;print join" ",map{$w[rand@w]}1..4'