--- microapl.orig	2009-01-07 01:40:57.000000000 +0900
+++ microapl	2009-06-23 07:03:31.000000000 +0900
@@ -37,7 +37,7 @@
 	fi
 
 	# Build expression and pass it to sed, due to evaluation.
-	expr="s/^.{$(($octave*4))\}\(.\{4\}\).*/\1/"
+	expr="s/^.\{$(($octave*4))\}\(.\{4\}\).*/\1/"
 	local result="$(echo $NOTESTRING | sed $expr)"
 	if [ -n "$result" ] ; then
 	  echo -n $result
@@ -160,6 +160,7 @@
 			  shift
 			  parse led_set_cpu_mcon 15
 			  $MICRO_q 0253$(note_to_freq $1)
+			  shift
 			  parse bz_on on
 			  for i in $@ ; do
 			    $MICRO_q 0253$(note_to_freq $i)
@@ -183,6 +184,7 @@
 			  shift
 			  shift
 			  $MICRO_q 0253$(note_to_freq $1)
+			  shift
 			  parse bz_on on
 			  for i in $@ ; do
 			    $MICRO_q 0253$(note_to_freq $i)