I am using `WriteString` to avoid automatic line change. But it seems like the it does not work with `Style`, like the following

```mathematica
a = 7;
Style[WriteString["stdout", a], FontSize -> 47]
```

The `FontSize` seems to be not effective. Does `WriteString` not work with `Style` at all? If so, how can I even change the font size of a `WriteString` output?

Thanks in advance!