do not wrap with a begin read expressions if it is single

src/parse.y

@@ -46,8 +46,15 @@ void yylex_destroy();
 program
 	: program_data
 	{
+	  /* if single? */
+	  if (pic_eq_p(p->pic, pic_cdr(p->pic, $1), pic_nil_value())) {
+	    p->value = pic_car(p->pic, $1);
+	  }
+	  /* if multiple? */
+	  else {
 	    p->value = pic_cons(p->pic, p->pic->sBEGIN, $1);
 	  }
+	}
 	| incomplete_program_data
 	{
 	  p->incomp = true;