#!/usr/bin/perl
check();
$k = check();
$k, $y = check(); # $y = check();
($k, $y) = check();
@k = check();
sub check {
}
IyEvdXNyL2Jpbi9wZXJsCgljaGVjaygpOwoJJGsgPSBjaGVjaygpOwoJJGsgPSBzY2FsYXIgY2hlY2soKTsKCSRrLCAkeSA9IGNoZWNrKCk7IAkjICR5ID0gY2hlY2soKTsKCSgkaywgJHkpID0gY2hlY2soKTsKCUBrID0gY2hlY2soKTsKCUBrID0gc2NhbGFyIGNoZWNrKCk7CgpzdWIgY2hlY2sgewoJcHJpbnQgInZvaWRcbiIgYW5kIHJldHVybiB1bmxlc3MgZGVmaW5lZCB3YW50YXJyYXk7CglwcmludCB3YW50YXJyYXkgPyAibGlzdFxuIiA6ICJzY2FsYXJcbiI7Cn0=