(mk-tower
 'p_tower "Test Tower"
 (list
  ".. {4 {{ {{ {{ ^^ ^^ .. .. .. ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
  ".. {4 {{ {{ {{ ^^ ^^ ^^ .. ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
  ".. .. {5 {{ {{ {{ {{ xx ,, xx {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
  ".. .. {4 {{ {{ {{ {{ w+ ,, w+ {5 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ "
  ".. .. .. {1 {1 {1 {1 xx ,, xx .. {1 {5 {{ ^^ ^^ ^^ ^^ ^^ "
  ".. .. .. .. .. xx xx xx ,, xx xx xx {4 {{ {{ ^^ ^^ ^^ ^^ "
  ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. {5 {{ {{ ^^ ^^ ^^ "
  ".. .. .. .. .. x! ,, ,, ,, ,, ,, x! .. .. {5 {{ {{ ^^ {{ "
  ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. .. .. {5 {{ {{ .. "
  ".. .. .. .. .. ,, ,, ,, ,, ,, ,, ,, .. .. .. .. .. .. .. "
  ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. .. .. {c {{ {{ .. "
  ".. .. .. .. .. x! ,, ,, ,, ,, ,, x! .. .. {4 {{ {{ ^^ {{ "
  ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. .. {c {{ ^^ ^^ ^^ "
  ".. .. .. .. .. xx xx xx ,, xx xx xx .. {c {{ {{ ^^ ^^ ^^ "
  ".. .. .. .. .. .. .. xx ,, xx .. .. {c {{ {{ ^^ ^^ ^^ ^^ "
  ".. .. .. {8 {8 {8 {8 w+ ,, w+ {8 {c {{ {{ ^^ ^^ ^^ ^^ ^^ "
  ".. .. {c {{ {{ {{ {{ xx ,, xx {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ "
  ".. {4 {{ {{ {{ {{ ^^ ^^ .. ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
  ".. {4 {{ {{ {{ ^^ ^^ .. .. .. ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
  )
 nil ; entrances
 (put (mk-windowed-door) 11 9)
 (put (mk-windowed-door)  5 9)

 (put (guard-pt 'knight)  7 8)
 (put (guard-pt 'knight)  9 10)
 (put (guard-pt 'squire)  7 10)
 (put (guard-pt 'squire)  9 8)
 )
