ワンライナー！！！ヽ|・∀・|ノ

```R
sample(c("おっくん", "きたけー", "ぐっさん", "たけお"))
```