# [R], [Jarko, again](https://codegolf.stackexchange.com/a/136413/67312)

<!-- language-all: lang-r -->

    cat(diag(diag(('i'%in%'i'):(x=scan()),x%o%x)),sep='')

[Try it online!][TIO-j5o2ylxo]

[R]: https://www.r-project.org/
[TIO-j5o2ylxo]: https://tio.run/##K/r/PzmxRCMlMzEdQmioZ6qrZuapAilNK40K2@LkxDwNTU2dCtV81QogXZxaYKuurvnf7D8A "R – Try It Online"