#!/usr/bin/perl
for $N (3,5,7,11) {
$p = 1000 * $N;
split'', `perl -Mbignum=a,$p -le "print sqrt($N)"`; }
IyEvdXNyL2Jpbi9wZXJsCmZvciAkTiAoMyw1LDcsMTEpIHsKICAkcCA9IDEwMDAgKiAkTjsKICBwcmludGYgIiROID0+ICVkXG4iLCBzY2FsYXIgZ3JlcHsvMC99CiAgICBzcGxpdCcnLCBgcGVybCAtTWJpZ251bT1hLCRwIC1sZSAicHJpbnQgc3FydCgkTikiYDsKfQ==