#!/usr/bin/perl

use Encode qw(encode decode);

while (chomp ($i = <STDIN>)) {
  $i = decode("UTF-8", $i);
  print encode("UTF-32LE", $i);
}