# Perl _(*nix)_, 54 bytes <!-- language: lang-pl --> sleep print"\x1bc",$-++%2?'\o/ _0_ ':'_o_ 0 / \ 'while 1 (`\x1b` is counted as 1 byte but escaped for easier testing.) The above has been tested with Bash and shortened by another byte thanks to [@Dennis][1]! # Perl _(Windows)_, 56 bytes <!-- language: lang-pl --> sleep print"\x1b[2J",$-++%2?'\o/ _0_ ':'_o_ 0 / \ 'while 1 Thanks to [@Jarmex][2] for his testing and advice! [1]: http://codegolf.stackexchange.com/users/12012/dennis [2]: http://codegolf.stackexchange.com/u/26977