perl -e'print sort{4-rand 9}<>'