Floats: perl -e '$_= ($_*76543+23456789) % 1234567891 while 1'