List WP Categories by First Letter

gistfile1.txt

<?php
	$args = array(
		'orderby' => 'name',
		'parent' => 0,
		'order' => DESC
		);
	$categories = get_categories( $args );
	$curr_letter = '';
	foreach ( $categories as $category ) {
	$this_letter = strtoupper(substr($category->name,0,1));
	
	if ($this_letter != $curr_letter) {
		echo "<h1>$this_letter</h1><br />";
		}
		echo '<a href="' . get_category_link( $category->term_id ) . '">' . $category->name . '</a><br/>';
		
	$curr_letter = $this_letter;
	}
?>