#!/bin/bash
#
# __copy1__
# __copy2__
#
# original idea from 'updick', by Franco Lanza, 2014
#
uptime | perl -ne "/(\d+) d/;print 8,q(=)x\$1,\"D\n\""
exit 0
