mentionwq little r script