emitInputByte = do
  label <- aload 1
  iload 2
  getstatic "java/lang/System" "in" (L"java/io/InputStream")
  invokevirtual "java/io/InputStream" "read" ()I
  i2b
  bastore
  returnM label
emitInputByte = do
  label <- aload 1
  iload 2
  getstatic "java/lang/System" "in" (L"java/io/InputStream")
  invokevirtual "java/io/InputStream" "read" ()I
  i2b
  bastore
  returnM label
emitInputByte = do
  label <- aload 1
  iload 2
  getstatic "java/lang/System" "in" (L"java/io/InputStream")
  invokevirtual "java/io/InputStream" "read" ()I
  i2b
  bastore
  returnM label