#!/usr/bin/perl
@_=qw# 83 112 105 114 105 116 117 97 108 32 99 111
  100 101 10 84 114 97 110  99 101 110 100 101 110
  116 32 105 110 32 105 116 115  32 98 101  97 117
  116 121 10 71 114  97  99 101 102 117 108 44  32
  102 117 110 99 116 105 111 110 97 108 10 chr  nt
  pri map#;eval join'',join(' ',pop@_,'{',pop(@_).
  pop@_,pop(@_),'} '),join',',@_;