#!/usr/bin/perl -w
#
# for wordpeace demo version 1.0 (linux)
# MD5 5d620ce187bfc0a77b8041bda48f576b
# http://www.chroniclogic.com/
#
$[=1;$"="";@a=unpack'C*',"@{[<>]}";
map{@c=@$_;($a[$c[1]]-oct$c[2])?(die"corrupt"):($a[$c[1]]=oct$c[3])}
map[split],(<DATA>);print pack'C*',@a;
__DATA__
 12260 164 165
 12702 164 165
 13282 164 165
 22156 164 165
 22468 164 165
 35886 164 165
 36019 164 165
 36171 164 165
 36278 164 165
 36580 164 165
 36665 164 165
 36750 164 165
 36835 164 165
 49430   0   1
