sub TIESCALAR{bless[0,$_[1]],$_[0]}
sub FETCH{${$_[0]}[0]++%${$_[0]}[1]?" ":"\n"};
sub chunk_array{tie local$",'main',shift;"@_\n";}