#!/usr/bin/perl

print pack 'u', (join '', <>);