<?
    $dice = array(array("I","M","T","O","U","C"), array("R","E","T","W","V","H"), array("S","P","A","H","C","O"), array("S","S","O","I","T","E"), array("S","P","F","A","K","F"), array("R","L","I","E","D","X"), array("D","T","Y","T","I","S"), array("B","B","A","O","O","J"), array("E","A","N","A","G","E"), array("M","U","H","N","I","QU"), array("N","U","I","E","S","E"), array("H","N","L","N","Z","R"), array("A","W","T","O","T","O"), array("E","Y","L","D","R","V"), array("Y","T","L","E","T","R"), array("G","E","W","N","H","E"));
    foreach (array_rand(range(0, 15), 16) as $dindex) $bog = ($bog .= $dice[$dindex][array_rand($dice[$dindex])]) . ((strlen($bog) > 2 && substr($bog, -2) == "QU") ? ((++$lc % 4 == 0) && $lc != 1 ? "\n" : ' ') : ((++$lc % 4 == 0) && $lc != 1 ? "\n" : '  '));
    echo "<pre>\nB O G G L E\n\n{$bog}</pre>";
?>