cgOp LStrHead [c] = do
  s <- unbox FString c
  c <- inst $ loadInv s
  c' <- inst $ ZExt c (IntegerType 32) []
  box (FArith (ATInt ITChar)) c'
cgOp LStrHead [c] = do
  s <- unbox FString c
  c <- inst $ loadInv s
  c' <- inst $ ZExt c (IntegerType 32) []
  box (FArith (ATInt ITChar)) c'
cgOp LStrHead [c] = do
  s <- unbox FString c
  c <- inst $ loadInv s
  c' <- inst $ ZExt c (IntegerType 32) []
  box (FArith (ATInt ITChar)) c'