$:=<>;{$;++<$:?push@{$:[-$_]},$;:print(map"@$_
",reverse@:)/0for-@:..0;redo}