menu nicklist {
  CLOCKS
  .ANIMALCLOCKS
  ..Clock1: /me 13,6(\o/)11(\o/)13(\o/)11(\o/)13(\o/) | /me 13,6(/|\)11(/|\)13(/|\)11(/|\)13(/|\) | /me 11,6(\o/)6,6...11      $date         6,6..11(\o/) | /me 11,6(/|\)6,6...11   $atime         6,6..11(/|\) | /me 13,6(\o/)11(\o/)13(\o/)11(\o/)13(\o/) | /me 13,6(/|\)11(/|\)13(/|\)11(/|\)13(/|\)
  ..puppytime:/say 0,0.....5,,,,, | /say 0,0.. 5/))'''((\ | /say 0,0..5{.))12o o5((.} | /say 0,0.. 5\)(_o_)(/ | /say 0,05()4,1 $atime 5() | /say 0,0..5(_).....(_) | /say 11,5!12!13!8Puppy Time12!13!11!
  ..BunClock:/me 0,0----------10(Y) | /me 0,0---------10(12°13.12°10) | /me 0,0-----10()4,1 $atime 10() | /me 0,0--------10(_)-(_) | /me 0,0....11,5!12!13!8Bunny Time12!13!11!
  ..Beartime:/me 0,0---------12{4.12-4.12} | /me 0,0---------12( 9Y 12) | /me 0,0-----12()4,1 $atime 12() | /me 0,0--------12(_)-(_) | /me 0,0....11,9!12!13!12Bear Time12!13!11!
  ..Froggytime:/me 0,0----------5@..@ | /me 0,0--------3(------) | /me 0,0-----3_«(4,1 $atime       3)»_ | /me 0,0------12^^^~~~~~~^^^ | /me 0,0....11,8!12!13!12Froggy Time12!13!11!
  ..tunatime:/me 1,1----------9,1------ | /me 1,1-------4.:/1------- | /me 1,1----12,,///;,   ,;/1-- | /me 1,1--13o)::::::;;///1-- | /me 1,1---11>4,1 $atime  11\\\1 | /me 1,1---8''\\\\\'" ';\1- | /me 1,1-----9';\_/1------- | /me 1,1.11,9!12!13!12Tuna Time12!13!11! 
  ..OwlTime {
    /say 0,1€€€€€€€€€€€€€
    /say 1,01,1-9,1Party Time!1,1-1,0
    /say 0,1€€€€€€€€€€€€€€
    /say 1,01,1Sher^0,_,1Silly1,0
    /say 1,01,1....0(4¤0v4¤0)1....1,0
    /say 1,01,1...0~{`-´}~1...1,0
    /say 1,00,1----`"-"´----1,0
    /say 0,1€€€€€€€€€€€€€€
    /say 1,01,1-9 $atime 1-§1,0
    /say 0,1€€€€€€€€€€€€€€
    /say 1¯¯¯¯¯0§1 ¯¯¯¯
  }
  .COLOR CLOCKS
  ..TimeBlue:{
    say 0,0....12 Where I am it is... 0__11,2\12,12 $day $date $atime 11,2/
    say 0,0......................... 0_11,2 11,1 $day $date $atime 11,2 
    say 0,0.......................... 011,2/12,12 $day $date $atime 11,2\4  
    halt
  }
  ..TimeGray:{
    say 0,0 0_15,14\15,15 $day $adate $atime 15,14/
    say 0,0 0_15,14 4,1 $day $adate $atime 15,14 
    say 0,0. 015,14/15,15 $day $adate $atime 15,14\
    halt
  }
  ..&clock:{
    say 1,1<-- 13,1{~._.~} 1,1- 11,1 your1,1 -- 13,1{~._.~}1,1--- |
    say 1,1<---13,1 ( Y ) 1,1-- 12,1cuddly1,1---13,1 ( Y )1,1------ | 
    say 1,1<-- 13,1()~*~() 1,18,1 $time  1,1-13,1 ()~*~()1,1-- |
    say 1,1<--13,1 (_)-(_) 1,1- 11,1clock 1,1--13,1 (_)-(_)1,1--- |
    say 1,1----12,1 Eastern Standard Time 1,1------ |
  } 
  ..TimeWild:{
    say 0,0 0_4,6\14,14 $day $adate $atime 4,6/
    say 0,0 0_4,6 11,15 $day $adate $atime 4,6 
    say 0,0. 04,6/14,14 $day $adate $atime 4,6\
    halt
  }
  Pretty Boxes
  .TealGrnBBlue: /set %shdtext $?="Text" | /say 10,10.9,6»4,6©9,6«10,10 $+ %shdtext $+ 9,6»4,6©9,6«10,10. | /say 10,10..1,1.... $+ %shdtext $+ 10,10.I1,1. | /say 10,10..1,1.9,9.9,9 $+ %shdtext $+ 9,9..10,10.c1,1. | /say 10,10..1,1.9,9.2,9 $+ %shdtext $+ 9,9..10,10.y1,1. | /say 10,10..1,1.9,9..9,9 $+ %shdtext $+ 9,9.10,10.21,1. | /say 10,10.9,6»4,6©9,6«10,10 $+ %shdtext $+ 9,6»4,6©9,6«10,10.1,1. | /say 0,0.1,1... $+ %shdtext $+ 1,1.....
  .PinkGrnGld: /set %shdtext $?="Text" | /say 13,13.9,6»4,6©9,6«13,13 $+ %shdtext $+ 9,6»4,6©9,6«13,13. | /say 13,13..1,1.... $+ %shdtext $+ 13,13.I1,1. | /say 13,13..1,1.9,9.9,9 $+ %shdtext $+ 9,9..13,13.c1,1. | /say 13,13..1,1.9,9.7,9 $+ %shdtext $+ 9,9..13,13.y1,1. | /say 13,13..1,1.9,9..9,9 $+ %shdtext $+ 9,9.13,13.21,1. | /say 13,13.9,6»4,6©9,6«13,13 $+ %shdtext $+ 9,6»4,6©9,6«13,13.1,1. | /say 0,0.1,1... $+ %shdtext $+ 1,1.....
  .PinkBBlueGld: /set %shdtext $?="Text" | /say 13,13.9,6»4,6©9,6«13,13 $+ %shdtext $+ 9,6»4,6©9,6«13,13. | /say 13,13..1,1.... $+ %shdtext $+ 13,13.I1,1. | /say 13,13..1,1.11,11.11,11 $+ %shdtext $+ 11,11..13,13.c1,1. | /say 13,13..1,1.11,11.7,11 $+ %shdtext $+ 11,11..13,13.y1,1. | /say 13,13..1,1.11,11..11,11 $+ %shdtext $+ 11,11.13,13.21,1. | /say 13,13.9,6»4,6©9,6«13,13 $+ %shdtext $+ 9,6»4,6©9,6«13,13.1,1. | /say 0,0.1,1... $+ %shdtext $+ 1,1.....
  .RedBrwnBBlue: /set %shdtext $?="Text" | /say 4,4.9,4»2,4©9,4«4,4 $+ %shdtext $+ 9,4»2,4©9,4«4,4. | /say 4,4..1,1.... $+ %shdtext $+ 4,4.I1,1. | /say 4,4..1,1.5,5.5,5 $+ %shdtext $+ 5,5c.4,4..1,1. | /say 4,4..1,1.5,5.11,5 $+ %shdtext $+ 5,5y.4,4..1,1. | /say 4,4..1,1.5,5..5,5 $+ %shdtext $+ 5,5.4,4.21,1. | /say 4,4.9,4»2,4©9,4«4,4 $+ %shdtext $+ 9,4»2,4©9,4«4,4.1,1. | /say 0,0.1,1... $+ %shdtext $+ 1,1..... 
  .PurpleBBlueGld: /set %shdtext $?="Text" | /say 6,6.9,6»4,6©9,6«6,6 $+ %shdtext $+ 9,6»4,6©9,6«6,6. | /say 6,6..1,1.... $+ %shdtext $+ 6,6.I1,1. | /say 6,6..1,1.11,11.11,11 $+ %shdtext $+ 11,11..6,6.c1,1. | /say 6,6..1,1.11,11.7,11 $+ %shdtext $+ 11,11..6,6.y1,1. | /say 6,6..1,1.11,11..11,11 $+ %shdtext $+ 11,11.6,6.21,1. | /say 6,6.9,6»4,6©9,6«6,6 $+ %shdtext $+ 9,6»4,6©9,6«6,6.1,1. | /say 0,0.1,1... $+ %shdtext $+ 1,1.....
  
}

alias atime {
  set %hr $token(1,58,$time)
  set %min $token(2,58,$time)
  if (%hr == 0) { set %hr 12 | set %sub am }
  elseif (%hr < 12) { set %sub am }
  elseif (%hr == 12) { set %sub pm }
  else { %hr = %hr - 12 | set %sub pm }
  return %hr $+ : $+ %min  %sub
}